un logiciel complet 
tie dessin sur Apple 



M1631 15- 33,00 F 




3791631033Q06 00150 

el ProOOS sort des nw/cuM deposit! par Apple Computer //if 




okes 
wiesoft 



tremplin 
micro 1 5 



SOMMAIRE 



Ave* Iq collaboration do : 

ARGOS, Claude AUBRY, Nicole BREAUD-POUUQUEN, More BROCHA, 
Yves BUONO, Maurice CHAVELU, Marcel OOTTINL Francois GALLET 
et Thierry FILLAUT, NESTOR, Pierre PRIVAT et Clement RENARD. 



Apple et ProDOS (nom* ei 
logos) sont des marques depo- 
sms d' Apple Computer, inc. 



Le nurnero : 33 F 
Abonnementd'un an : 190 F 
(6 numeros) 

Tout nos prix sont indiques TTC. 

EDITIONS JIBENA 

Direction-Redaction : 
Edftions J I BEN A 
Guy-HACHETTE 

La Petite Motte — Senilis 
86100 CHATELLERAULT. 

Telephone : 
49-93-66-66 

PUBLICITY : 
Raymond JULLIEN 
(1)45.75.41.81 

Commission paritaire- : 

Les revues qui choisissent d'etre 
reellement au service du Leeteur 
en ne I'obligeant pas a glaner. 
dans plusieurs magazines, les 
renseignements concern ant sa 
machine, ne beneficient pas du 
numero de Commission Paritaire, 
et pas davontage des tarifs pos- 
taux reduits. 

TREMPUN MICRO - Bimestriel - Cesl 
jne publication des Editions JIBENA, 4, 
rue de la Cour-des-Noues, 75020 PARIS 
— S.A. au capital de 3600000 F - 
Imprime par OT^PRESS/PARIS - 
DepoJ legal a la dale de par u lion — Ins 
oiption a la Commission Paritoire des 
Publications er Agences de Presse :en 
cours — Diredeur de la Publication : 
Guy-Clement COGNf - Diffusion 
N.M.PP. 



La Diskette TREMPUN MICRO 
contient tovs les programmes 
du nurnero f ofasi que les sour- 
ces trep longs pour Stre putties 
dans tes cohnnes de h revue. 



GS, MON BEAU SOUC1 

MINUPHGNE (Combien coute une communication ?] 



SPECIAL 

cs 



LE BASIC APPLESOFT 
PARLE AUX OUTILSDUGS 



C TRES SIMPLE 

(langoge c stir le gsi 



Claude AUBRY poursuit son omusonte initiation 
Et Nestor ameliore LE BON NOMBRE 



CATAVISU (Petit utilitafre ProDOS permettant de visualiser 

I'occupation de la disquette) 

POKE, COAAMANDE APPLESOFT (Tout ce qu'il taut savoir) , 
DUN BASIC A UN AUTRE (DE L'APPLESOFT AU GWBASIC) . 
STARTUP (Interessant utilitaire ProDOS) 



17 
21 
28 
31 



SPECIAL GS RAM ET GS RAM PLUS (extensions memoire pour Apple 1IGS) . . . . 39 

GS HORLOGEGS (Attention ! il faut ProDOS 8 en memoire !) 40 

GUIDES DEFORMATION 

{Comment decouvrir Excel ou PageMaker ?) 44 



CRAPHI5ME 
Yves BUONO 



Logiciel de dessin mis au point par Tun de nos lecteurs, 
ARC.EN.CIEL merite de retenir votre attention 45 



EDUCATION ET JEUX 53 

GRAPH. EXPRESS (Routine en mode TEXT) , 54 

LA SOURIS ET L'ASSEMBLEUR (Troisieme partie) 55 

LE TRAITEMENT DE TEXTE DU COTE DES COMPATIBLES 60 

YVAN KOENIG REPOND A NOS LECTEURS 63 

AAETTEZ UN GS DANS VOTRE APPLE II 69 

NESTOR (SAGESSE OBLIGE ! ) 71 

QUESTIONS et AAEA CULPA (n°14) 72 

QUOI EST OU ? 73 

QUESTIONS... REPONSES (suite) 74 

BULLETIN D'ABONNEMENT 75 

LES LIVRES 27,30.70.76 



TREMPUN MICRO 



IMHMMMMHJ 
1 





MON BEAU 
SOUCI 



Nos lectrices et lecteurs sont perplexes. 
Certains (peu, eu egard au nombre conside- 
rable de machines vendues en France) ont 
choisi de troquer leur vieil Apple contre un 
GS flambant neuf. D'autres ont opte pour un 
MACINTOSH ou pour un compatible IBM. 



Combien ? je I'ignore. Par contre r je sais que la plupart des lectrices 
et lecteurs de Tremplin Micro ont prefere conserver leur Apple U+ 
ou He, en attendant d'autres offres, plus allechantes. On ne saurait 
leur dormer tort, 

II est possible, actuellement, sur le marche de 1'occasion, de s'offrir 
une configuration complete pour une somme relativement modique. 
Par ailleurs, grace a des cartes comme la TRANSWARP & Applied 
Engineering, un Apple He devient instantanement un Apple Turbo, 
capable — le son et le graphique en moins, bien sur — de rivaliser 
avec un GS de la premiere couvee, 

Les gens qui programment (lis sont nombreux parmi nos correspon- 
dents) ou desirent s'initier a ce jeu captivant qu'est la "domestication" 
d'un microprocesseur, prennent autant de plaisir a tapoter sur le cla- 
vier d'un Apple He ou d'un Apple lie que sur celui d'un GS. 

Et puis, avouons-le, il est plus agreable de travailler sous ProDOS 8 
que sous ProDOS 16 — certes plus performant (on ne saurait raison- 
nablement le nier), mais terriblement gourmand en temps de 
chargement. 

Enfin, une fois de plus, Apple mise surtout sur les nouveaux MAC 
(oh ! les belles machines ! ) parce que la firme de Cupertino espere 
penetrer en force dans les entreprises. Comme nous aimons bien la 
pomme, nous lui souhaitons de reussir, mais en regrettant qu'H ne 
reste plus, pour les vieux de ta vieille, que de rares pepins... conce- 
des aux prix des pepites, 

Bonnes vacances et profitez done d'icelles pour vous adonner a 
I'etude passionnante de I'assembleur ! 



Guy-HACHETTE. 
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GUY-HACHETTE 



UTILITAIRE 




Pierre PRIVAT 



MINUPHONE 



OICI un petit programme qui pourra rendre d eminents services aux plus bavards utilisa- 
teurs du telephone. Vous en connaissez surement dans votre entourage ! Gageons que 
Pierre Privet et son Minuphone vous aideront a reduire tres sensiblement le montant de 
vos factures telephoniques. En attendant, suez done un peu sur la frappe du programme ! 



v 



Rappelons qui! ne faui $ur- 
tout pos taper les valeurs 
indiquees en couleur : elles 
permettenf aux heureux 
possesseurs de notre di$- 
quette SIGNATURE (une 
idee d'Yvan KCENIG) de 
confroler chaeune des 
lignes de feur programme. 



SIGNATURE 

est indispensable, Ce logi- 
ciel fait gagner un temps 
precieux en evitant a nos 
lectrices et lecteurs de fosti- 
dieuses recherch.es en cas 
d'erreur (et qui n'en corn- 
met jamais ?). 



SIGHATURE 

ne coute que 30 F (bulletin de 
commande a la fin de la revue). 



(suite page 4) 
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110 
115 
120 
125 
130 
3 35 
140 



D* = CHR* (4) :B] P$ = CHR* (?) ; TEXT 

DNERR GOTO 805 

PRINT D*;"PR£3 U : PRINT : HOME 

• 

REM ** LECTURE TAXE DE BASE ** 



REM ** MENU GENERAL ** 

HOME : G0SUB 400 

HTA8 28: PRINT 

HTAB 28: PRINT 



■J 


--> 


Lundi au ^endr 


"2 


--> 


Samed i 11 


"3 


__> 


Dimanches et F 


"4 


--> 


Changer )e pr i 


"5 


— > 


"Term i ner " 



PRINT D*;"DPEN TAXE" : PRINT D$ ; " READ TAXE" : I 
NPUT T; PRINT D*;" CLOSE TAXE": PRINT 
145 i 
150 
155 
160 

165 VTAB 
edi " 
170 PRINT 
175 PRINT : HTAB 

etes" 
180 PRINT : HTAB 
x de 1 a taxe 
185 PRINT ; HTAB 
190 
195 
200 ; 

205 REM ** TAR I F SEMAINE ** 
210 : 

235 HOME ; GOSUB 400 

220 UTAB 5: HTAB 30: INVERSE : PRINT " LUNDI au U 

ENDREDI NORMAL : PRINT 
225 PRINT "TAR IF EN WGUEURi u 
230 PRINT : HTAB 20: PRINT "1 

h30 et 13h3G-i8hOQ) rt 
235 PRINT : HTAB 20: PRINT "2 

3h30 et 18h00-21h30> - 
240 PRINT : HTAB 20: PRINT "3 

et 21h30-22h30) N 
245 PRINT : HTAB 20: PRINT "4 



MX = 5: GOSUB 430 

ON R GOTO 215,280,345,805,785 



> " ROUGE (8h00-12 

> "BLANC C 12H30-1 
) " BLEU (6h00-8h0 

> 'BLEU NUIT <22h 



iHNNinniiiiHMimii 



84DF 
6CED 
A25E 
003A 

003A 

3117 
003A 

003A 
3C15 

E4U 
D80? 

F3<SB 

4E0C 
BB8F 
6E2B 
DB70 
003A 

003A 
3C15 

0BC8 
OCAS 

3F81 

BB8E 

F1F6 



30-6hQQr 2163 
250 MX = 4; GOSUB 430 51 2A 

255 ON R GOSUB 475,480,485,490 

260 GOTO 510 0341 
265 ; 003A 
270 REM *# TARIF SAM EDI ** 

275 : 003A 
280 HOME : GOSUB 400 3C15 
285 UTAB 5: HTAB 36: INVERSE f PRINT " SAME D I " : 

NORMAL : PRINT F3DE 
290 PRINT "TARIF EN MI GUEUR : " 0CA8 
295 PRINT : HTAB 20: PRINT l( 1 — > ROUGE C8h00-12 

h30)" 

300 PRINT : HTAB 20: PRINT "2 — > " BLANC (12h30-l 

3h3Q>" 3A69 
305 PRINT : HTAB 20: PRINT "3 «> BLEU <6hOO-8hO 

et 13h30-22h3Q>" ACF7 
310 PRINT : HTAB 20: PRINT "4 — > "BLEU NUIT <22h 

30-6h00) H 2163 
315 MX = 4s GOSUB 430 51 2A 

320 ON R GOSUB 475,480,485,490 5584 
325 GOTO 510 0341 
330 : 003A 
335 REM *# TARIF DIMANCHE ** 

340 i 003A 
345 HOME : GOSUB 400 

350 UTAB 5: HTAB 30: INVERSE : PRINT 11 DIMANCHES 

et FETES NORMAL : PRINT E401 
355 PRINT "TARIF EN VIGUEUR:" OCAS 
360 PRINT r PRINT : HTAB 24: PRINT "1 — > BLEU < 

6h00-22h30)" B4F8 
365 PRINT : PRINT : HTAB 24: PRINT "2 — > BLEU N 

UIT (22h30-6h00) ,! C55? 
370 MX = 2: GOSUB 430 9728 
375 ON R GOSUB 485,490 0C20 
380 GOTO 510 0341 
385 : 003A 
390 REM ** AFFICHAGE HAUT ** 

395 : 003A 
400 VTAB 1: PRINT "Taxe : ";T;" F u ; ; HTAB 22: PRIN 

T "MINUPHONE - Pierre PRIUAT, Mars IPS?" 
405 FOR I = 1 TO 80: PRINT - = " ; : NEXT I: PRINT 
410 RETURN 63B1 
415 : 003A 
420 REM ** AFFICHAGE BAS ** 

425 : 0Q3A 
430 UTAB 19: FOR 1 = 1 TO 80: PRINT W _ M ; : NEXT I 4911 
435 UTAB 21: HTAB 26: PRINT ■ <ESC> pour retour au 

menu" FA3C 
440 VTAB 22: HTAB 33: PRINT "Uotre choix ? ";; GE 

T R* 4BC7 
445 IF R* = CHR* <27) OR R* = CHR$ <3> THEN 160 1A6E 
450 R = UAL <R*> : IF R < 1 OR R > MX THEN PRINT 

BIP*: GOTO 440 7E97 



MINUPHONE 

(suite) 



LIGNE 115 (pages) 
Utile lors de la premiere 
utilisation (ou encore si le 
fithier a ete efface par 
erreur), Cel ONERR GOTO 
envoie directement a la 
creation du fichier TXT : 
TAXE. 



LIGNE 140 (page 3) 
Lit la taxe de base PTT en 
vigueur dans le fichier 
TAXE. 



LICNE 190 (page 3) 
MX est une variable qui, 
en fonction des different 
menus, limite le chiffre- 
reponse au nombre de 
reponses possibles. 



LIGNES220a375et 
UGNES475CI490 
Bien sur a modifier si 
1'Administration decide de 
changer I'actuel systeme 
de iarification, Le coeffi- 
cient TX est multiplicateur 
de la duree en secondes 
par unite de bose (voir la 
ligne 615). 



GUY-HACHETTE 



LIGNE5 560 590 
A modifier si les PTT chart- 
gent la duree des commu- 
nications (UN correspond 
at) nombre de secondes}. 



LIGNE6T0 

II est possible de regler la 
precision en faisant vorier 
la valeur-limite de I. 



LICNES675et695 

La louche «espoce» a t- 

elle ete pressee ? 



LIGNES 820 a 850 
L'utilisation d'une instruc* 
tion INPUT, evidemment 
plus simple, aurait force- 
ment conduit a des erreurs 
de type "EXTRA IGNO- 
RED", en raison du risque 
d'utilisation d'une virgule 
a la place du point tradi- 
tionnel (taxe souvent en 
francs et centimes. . . et 
uttlisateurs plus ou moins 
au courant de la syntaxe 
Applesoft I). 



(suite page 6} 



Commurc i cat i on 
Commun i cat i on 
Commun i cat i on 



> "Communication 

> "Communication 



455 RETURN 
460 : 

465 REM ** COEFFICIENTS TARIFS ** 
470 : 

475 TX = i ;TX* = "ROUGE" : RETURN 
480 TX = 1.5:TX$ = "BLANC" : RETURN 
485 TX = 2:TX* = "BLEU" : RETURN 
490 TX = 3:TX* = "BLEU Nil IT" : RETURN 
495 : 

500 REM ** MENU ZONES ** 
505 ; 

510 HOME : GOSUB 400 

515 MTAB 5: PRINT "Nume>o de zone (uoir carte ann 

uaire) : " : PRINT 
520 PRINT ; HTAB 22: PRINT "1 - 

locale" 

525 PRINT i HTAB 22: PRINT "2 - 

uoisinage (A}" 
530 PRINT ; HTAB 22: PRINT "3 - 

uoisinage CB)* 
535 PRINT ; HTAB 22: PRINT "4 - 

yoi si nage CO " 
540 PRINT : HTAB 22: PRINT "5 - 

distance" 
545 MX = 5: GOSUB 430 
550 ON R GOTO 570,575,580,585,590 
555 : 

560 REM ** COEFFICIENTS ZONES ** 
565 : 

570 UN = 360: UN* = " LOCALE" : GOTO 63 
575 UN = 72 : UN* = "YOISINAGE (A)*: GOTO 610 
580 UN = 45:UN* = "UOISINAGE <B)": GOTO 610 
585 UN = 24: UN* = "VOISINAGE <C) n : GOTO 610 
590 UN = 12: UN* = "DISTANTE": GOTO 630 
595 : 

600 REM ** CALCULS ET AFFICHAGE HORLOGE #* 
605 : 

610 HE = 0:MI = 0:SE = 0:SC = 0:P - 0;U = 1: HOME 

: GOSUB 400: GOSUB 710 
615 UX * UN * TX 

620 VTAB 4: PRINT "Communication: 11 ; UN* ; : HTAB 62 

: PRINT "Tar if: 11 jTX* 
625 PRINT : HTAB 22: PRINT "<Une unite toutes les 
" ;UX;" seeondes)" : PRINT : FOR I = 1 TO 80 : 

PRINT " ." ; : NEXT I : PRINT 
630 UTAB 20: FOR I = 1 TO 80: PRINT "_" ; : NEXT I 
635 UTAB 22: HTAB 18: PRINT * <RET> pour dSmarrer 

et <ESPACE> pour arreter ";: GET R*: IF R* < 

> CHR* < 13) THEN PRINT BIP*: GOTO 635 
640 HE* = STR* (HE>:MI* = ST R* (MI > : SE* = STR* 

<SE) 

645 IF SE < 10 THEN SE* = "0" + SE* 
650 IF MI < 10 THEN MI* = 11 " + MI* 
655 IF HE < 10 THEN HE* = H 0" + HE* 



63B1 
00 3A 

00 3A 
CF38 
3E79 
38DF 
3D40 
003A 

00 3A 
3C15 

7B21 

ECF5 

3F9D 

7E9F 

99A1 

B4A5 
6E28 
90 7B 
003A 

00 3A 
454D 
11 C4 
54C5 
BFC3 
C3C3 
003A 

003A 

90 EA 
5896 

21C6 



CAF9 
4809 



FB23 

1C65 
62BF 
44B9 
539E 
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660 VTAB 17: HTAB 8: PRINT HE* ; " : ■ ;MI* ] u : ■ ; SE* ; : 

HTAB 72: PRINT U 73D2 

665 P = U * T : VTAB 12: HTAB 40: PRINT P 

670 FOR 2 = 1 TO 67: REM ** RGglage borlage ** 

675 IF PEEK < - 16368) = 160 THEN 705 

680 NEXT Z:SE = SE + 1 :SC = SC + 1 rU = INT <SC / 

UX) + 1 A3C8 

685 IF SE = 60 THEN MI = MI + 1 :SE = 

690 IF MI = 60 THEN HE - HE + 1 sMI = 

695 IF PEEK < - 16368) = 160 THEN 705 

700 GOTO 640 0345 
705 VTAB 22: CALL - 958: HTAB 21: PRINT "Appuyer 
sur une touche pour continuer ";: GET R$ : PR 

INT : GOTO 740 9350 
710 UTAB 17: HTAB Is PRINT "Temps: 00:00:00";: HT 

AB 63: PRINT "Un i t*s : " - 
715 UTAB 12: HTAB 32: PRINT "Prix !""" 

720 RETURN 63B1 
725 : 003A 
730 REM ** MENU DE FIN ** 
735 : 

740 HOME : GOSUB 400; UTAB 8: PRINT "Uotilez-uous: ■ FA FA 
745 YTAB 10: HTAB 22: PRINT "1 — > Recommencer a 

uec les m£mes param^tres" 8A26 
750 PRINT : HTAB 22: PRINT "2 — > Recommencer en 

changeant les parametres" 
755 PRINT : HTAB 22: PRINT "3 — > Quitter" 
760 MX = 3; GOSUB 430 9129 
765 ON R GOTO 610,160,785 

770 : D03A 
775 REM ** BYE BYE ** 
780 : 

785 HOME : UTAB 10: HTAB 36; PRINT "Terming...": 

END B9D3 
790 : 0D3A 
795 REM ** SAISI E/ENREG I STREMENT TAXE DE BASE ** 
800 : 003A 
B05 HOME : GOSUB 400 3C15 
810 UTAB 21: FOR I - 1 TO 80: PRINT ; : NEXT : 
PRINT 

815 VTAB 10: HTAB 25: PRINT "Prix de la taxe de b 

ase ? ; : CALL - 868 
820 GET TA$: IF TA* = CHR$ (13) THEN 855 
825 IF TA* = V THEN TA* = ■ . " : GOTO 845 
830 IF TA$ = THEN 845 690D 

835 IF TA* = v CHR* <3) OR TA* = CHR$ (127) THEN 

T2* = "" : V GOTO 915 9004 
840 IF ASC (TAS) < 48 OR ASC (TA») > 57 THEN 820 A731 
845 PRINT TA*j CFAE 
850 T2* = T2$ + TA$ : GOTO 820 
855 T = MAL <T2*>: IF T = THEN 815 
860 PRINT : PRINT D*;"0PEN TAXE 11 : PRINT D$ ; "WRITE 

TAXE": PRINT T: PRINT D*; "CLOSE TAXE" ; PRINT BAB0 
865 GOTO 160 3942 
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(suite) 



Les programmes 
paraissant dans 

TREMPLIH MICRO 

restent la propriete 
de teurs auteurs. 

Leur reproduction est 
evidemment 

autorisee, mais lis ne 
peuvent etre 
commercialises, 

Leurs auteurs sont 
seuls habilites a en 
autoriser I'eventuelle 
publication dans un 
recueii. 



AVIS A NOS LECTEURS 



TREMPUN MICRO invite 
ses Lectrices et Lecteurs a 
adopter ProDOS, systeme 
d exploitation beaucoup 
plus performant que le 
DOS 3.3. 

A propos de ProDOS, se 
mtfier des anciennes ver- 
sions et utiliser, sinon la 
plus recente, du moins 
celle portant la reference 
1.1.1. 
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APPLE IICS IJMIWff ■ 



Nicole BREAUD-POULIQUEN 



LE BASIC APPLESOFT 

parle aux outils du GS 



1. Quelenvlronnement 
He programmotion 7 

Supposons que vous ne disposiez 
pas du systems de developpement 
APW pour pouvoir ecrire efficace- 
merit en assembleur — et avec des 
macro-instructions — un pro- 
gramme avec une inlerface- 
utilisoteur de type Mac (le Bureau 
Electronique sur I'ecran Super 
Haute Resolution avec la Souris). 

Avec APW, an ecrirait cette applica- 
tion en la decomposant en plusieurs 
segments de programmes et de don* 
n6es, puis en une simple commande 
ASML PG.SRC, on obtiendrait 
I'assemblage et I'edition de liens de 
ces segments sous forme d'un fichier 
chargeable et relogeable automati- 
quement sous le systeme d'exploita- 
tian ProDOS 16* 

Notre hypothese de developpe* 
ment ici est le BASIC, SYSTEM que 
vous aurez mis sur une disquette 
SYSTEM contencnt au minimum les 
fichiers suivants : 



PRODOS 
SYSTEM 
BASICSYSTEM 
STARTUP 



SYS 
DIR 
SYS 
BAS 



Le sous-repertoire ou dossier 
SYSTEM contenant au minimum : 



P6 

P16 

START 

SYSTEM.SETUP 
TOOLS 
DESK.ACCS 
FONTS 



SYS 
$F9 
S16 
DIR 
DIR 
DIR 
DIR 



oil on trouvera les Outils a charger 
en MEV a la demande de Implica- 
tion, une collection d'accessoires 
de bureau et une collection de 
polices de ca roc teres. Le pro- 
gramme START est celui qui va 
etre execute au demarrage. 

II s'agit en general du lanceur 
d'application (Apple System Laun- 
cher), Avec une disquette systeme 
MOUSE.DESK, vous mettrez BASIC. 
SYSTEM en ceuvre en cliquant sur 
son icone. 

En appelant BASICSYSTEM, on se 
place automatiquement sous Pro- 
DOS 8- grace au fichier P8 qui con- 
tient la version ProDOS I A A deja 
connue, mais que Ton appellera 
dorenavant ProDOS 8. 

Pour assembler un sous- 
programme en langage machine, 
entrez dans le mini-assembleur 
par le classique CALL - 151 suivi, 
des la solicitation de I'* , par un ! 
Une fois les instructions mnemoni- 
ques topees, retournez au Moni- 
teur en tapant simplement 
'Return'. 

Pour sauvegarder sur disquette, 
rappellez BASIC par Ctrl-C, puis 
tapez BSAVE PG.OBJ,A$adr, 
LSlong. 

Le iichier ainsi obtenu pourra etre 
recharge par un BLOAD PG.OBJ. 

II est prevu dans APW une com- 
mande qui permet de trans- 
former : 

— un fichier relogeable et execu- 
table sous ProDOS 16 (type EXE 
ou SI 6) en : 



— un fichier equivalent en 
adresse absolue executable 
sous ProDOS 8 (done chargea- 
ble dans un programme en 
BASIC). Cest la commande 
MAKEBIN nom du fichier objet. 
Cest pourquoi dans cet article 
vous trouverez le listing du source 
PG.SRC ecrit sous APW ; la com* 
monde ASML PG.SRC a gen ere 
PG.OBJ grace a la directive KEEP 
PG.OBJ ; puis la commande MAKE- 
BIN PG.OBJ a genere le meme 
code que celui obtenu grace au 
mini-assembleur. 

Le source PG.SRC a ete ecrit deli- 
berement sans macro-instructions 
pour pouvoir le lire et le taper sous 
la meme forme en mini- 
assembleur, Le mini-ossembleur 
ne vous oblige pas a taper je signe 
$ pour les donnees en hexadeci- 
mal comme I'exige APW. 

2. L'exemple 

Nous avons choisi d'implanter le 
programme BASIC a sa place 
normale (a partir de $800) en 
supposant qu'il n'ira pas au-dela 
de $2000 pour son code et ses 
donnees numeriques. En $2000 
nous chargeons PG.OBJ le sous- 
programme de dialogue avec les 
outils, en supposant qu'il n'ira 
pas au-dela de $3000 ; cette der- 
niere adresse a et& choisie arbi- 
trairement comme debut des 
pages Zero que reclament les 
outils pour demarrer leur travail. 
QuickDraw en utilise trois et 
EventMonager une. (suite page 8) 
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PG.OBJ — 

ICALL-15I 

*0=x 
*0=m 

0=m 0=x l=LCbank CO/1) 



PC. SRC 



PG 



TITLE 'PG.SRC 
LIST DN 
ABSADDR ON 
SYMBOL DN 
ORG $002000 
KEEP PG.OBJ 
START 



0Q/S 

oo/: 
oo/: 



00/2000: 


18 








CLC 




CLE: 


gnu se en mode nat i f 


00/2001 : 


FB 








XCE 




XCE 


;auec 1es regiMres 


n, ft J -,n Fi 

00/2002: 


C2 


30 






REP 


£30 


REP t$3Q 


: but 16 bi ts 


00/2004: 


20 


12 


21 




JSR 


2012 


JSR DEttftRR 


;d^[narriQe des Out i Is 


00/2007: 


20 


7A 


20 




JSR 


20 7A 


JSR BOUCLE 


jboiicle de gestion des mnements 


QQ/2Q0A: 


20 


B3 






JSR 


20 B3 


JSR FERMER 


\i ermeture 


00/200D: 


38 








SEC 




SEC 




ft ft > ft 

D0/200E: 


FB 








XCE 




XCE 


;mise en mode Emulation 


An /nnfl i - . 

00/^0 OF: 


E2 


30 






SEP 


£30 


SEP t$3Q 


premise des registres 


CIA t . 

00/ 2011 : 


60 








RTS 




RTS 


;en mode o b i ts 
















END 


















DEMARR START 


















USING CurfflUN 




00/2012 


A2 


01 


02 




LDX 


£0201 


LDX £>£U1 


■ Tl C" V in tun 

j l Lbt&rtup 


00/2015" 


22 00 


00 


El 


JSL 


E10000 


JSL $E1QUUU 






F4 


00 


00 




PFA 


nnnn 

J U U Lr 


PEA fOOOO 




00/20 1C" 


A2 02 


02 




I DX 


PD202 


LDX t$2Q2 


;rnstar tup 


00/201F, 


22 


00 


00 


EI 


JSL 


El 0000 


tci £ c t nnnn 
JbL ftlJUUu 


00/2023; 


68 








PLA 




pi & 




00/2024: 


8D E4 


20 




STA 


20E4 


3 1 H LU 




00/2027: 


F4 


0l 


00 




PEA 


0000 


dca «nnnn 
rtH ituuuu 




00/20 2A: 


F4 


00 


1)0 




PEA 


0000 


PFi *nnrrri 

rtn TUUUu 




00/2020: 


F4 


El 


00 




PEA 


OOEi 






00/2030 


F4 


00 


20 




PEA 


2000 


pea. &3nnr> 




00/2033 


A2 


02 


1A 




LDX 


EIA02 




'Fi nKWanrll o Ho -tPtnnnH 


00/2036 


22 


00 


DO 


El 


JSL 


E10000 






00/203A 


A2 


02 


10 




LDX 


£1002 


i nv c*i fin 9 


i L/ 1 = [J U be nail U 1 c 


00/203D 


22 


00 


GO 


El 


JSL 


ElOOOO 


tci in nnnn 




00/2041 


F4 


00 


30 




PEA 


3000 


PEA $3000 


;d^bu t des Pages Zfros QuickDraw 


00/2044 


F4 


00 


00 




PEA 


0000 


pca inn on 


■ OTP ■ i r 'f nivolc' l i r,r c 
1 DL DiDi-D p 1 X c 1 Sj E 1 QDr 


00/2047 


F4 AO 


00 




PEA 


00A0 


PEA $00A0 


^ibre d'octets/1 igne 


00/204A 


AD E4 


20 




LDA 


20E4 


LDA ID 


Q0/2Q4D 


48 








PM 




PHA 




00/204E 


• A2 04 02 




LDX 


£0204 


LDX £$204 


^QDStartuo 


00/2051 


: 22 00 


00 


El 


JSL 


ElOOOO 


JSL $E10QDG 




00/2055 


: F4 


00 


33 




PEA 


3300 


PEA $3300 


;Paoe Ze"ro Euent Nanager 


00/2058 


: F4 


14 OCx 




PEA 


0014 


PEA $0014 


i long, maxi file d y £venements 


00/205B 


■ F4 


00 


00 




PEA 


0000 


PEA $0000 


;X min 


0Q/2Q5E 


> F4 40 


01 




PEA 


0140 


PEA $0260 


jX max du curseur 


00/2061 


; F4 00 


00 




PEA 


0000 


PEA $0000 


|T ffiin 


00/2064 


: F4 


C8 00 




PEA 


0OC8 


pea $ooce 


;Y min 


00/2067 


: AD E4 


2D 




LDA 


20E4 


LDA ID 




0O/2O6A 


: 48 








PHA 




PHA 




0D/206B 


: A2 


06 


02 




LDX 


£0204 


LDX £$206 


jEMStartup 


00/206E 


: 22 00 


00 


El 


JSL 


ElOOOO 


JSL $E10000 



OD 
00 
Ofl 
QC 
Ot 
01 




c 
[ 

s 



GUY-HACHETTE 



fHI 



00/2072; A2 04 9i 
00/2075: 22 00 00 El 
00/2079: 60 



LDX £9104 
JSL E100OO 

KTS 



00/20 7A: 


F4 


00 


00 




PEA 0000 






PEA $0000 


00/20 7D: 


F4 


FF 


FF 




PEA FFFF 






PEA $FFFF 


nn /?fiftn ■ 


A9 


DO 


fin 




LDA £0000 






LDA 


£$0000 


00/2083: 


48 








PHA 






FHA 




00/2064: 


A? 


E6 


20 




LDA £20E6 






LDA 


fEVENT 


00/2087: 


48 








PHA 






PHA 




00/2088: 


A2 


II 


OA 




LDX £0A06 






LDX £*A06 


'J 'J. i, U CD ■ 


M 


00 


00 


Fl 


JSL E10000 






JSL JE10000 


00/20 8F: 


68 








PLA 






PLA 




00/20 P0 : 


FO 


E8 






BEQ 207A #- 


•IBfe 




BEQ BOUCLE 


00/20 92: 


M 


E6 


20 




LDA 20 £6 






LDA EVENT 


00/2QP5; 


C9 


01 


00 




CMP £0001 






CMP £$0001 


00/20?8: 


DO 


13 






BNE 20AD £H3e 




BNE NDT1 
















; simple 


example de tr< 


00/20 ?A; 


F4 


00 


00 




PEA 0000 




PEA $0000 


00/209D: 


A2 


04 


N 




LDX £8634 






LDX £$8604 


00/20AO; 


22 


00 


00 


El 


JSL E10D00 






JSL $EiOO0O 


00/20A4: 


A2 


04 


15 




LDX £1504 






LDX £$1504 


00/20A7: 


22 


00 


00 


El 


JSL El 0000 






JSL SEIOOGQ 


00/2QAB: 


80 


CD 






BRA 207A 


-331 




BRA BOUCLE 


QQ/20AD: 


Cf 


03 


00 




CMP £0003 




NDT1 


CMP £$0003 


00/2080; 


00 


C8 






BNE 207A 






BNE 


BOUCLE 


00/2082: 


60 








RTS 






RTS 




















END 


















FERMER 


START 


















USING COMMUN 


00/2083: 


A2 


06 


03 




LDX £0306 






LDX 


E$306 


00/20B6: 


22 


00 


00 


El 


JSL E10DOO 






JSL 


$£10000 


00/20BA: 


A2 


04 


03 




LDX £0304 






LDX 


£$304 


00/20 SD: 


22 


00 


00 


El 


JSL E1Q000 






JSL 


$E1D0D0 


00/20CI: 


F4 


00 


00 




PEA 0000 






PEA 


$0000 


OQ/20C4: 


F4 


00 


00 




PEA 0000 






PEA 


$0000 


00/20C7: 


F4 


00 


00 




PEA 0000 






PEA 


to 000 


00/20CA: 


F4 


00 


80 




PEA 8000 






PEA 


$3000 


G0/20CD: 


AO 


E4 


20 




LDA 20 E4 






LDA 


ID 


00/20D0: 


48 








Pftt 






PM 




00/20D1 s 


F4 


13 


CO 




PEA C013 






PEA 


$C013 


00/20D4: 


F4 


El 


00 




PEA 00E1 






PEA 


$00E1 


00/2QD7; 


F4 


00 


20 




PEA 2000 






PEA 


$2000 


00/20 DA; 


A2 


u 


09 




LDX £0902 






LDX 


£$902 


00/20 DD: 


22 


00 


00 


El 


JSL EI0OOO 






JSL 


$E30000 


00/20E1 : 


68 








PLA 






PLA 





LDX £$9104 
JSL $E10DOO 
RTS 



;ShowCursor 



END 

BOUCLE START 



USING COMMUN 



;tous les eutnements accessible* 

jTactresse de EVENT sur 4 octets 
;GetNextEuent 



aucun tfv&nement? 
Sequel? 

bouton-sour i s enfonce'? 



iRandofn renvoi e sur la pile 
;un n ombre aUatoire sur 2 octets 
;Clear5creen met ce nombre dans 
;tous les octets assonfcs aua oixeU 



jtouche aopuye'e 



;EMShy tDown 
;QDShutDown 



itai lie du bloc a rSserver 
i $008000 



f ixe ,uerrou i 1 Te* ,sur un seul banc 
en $E12000 



;NewHandle 



(suite page 10) 
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QD720E2: - 
00/20 E3t 60 



PLA 
RTS 



Nous avons choisi cetie pre- 
sentation, peu orthodoxe il 
est vrai, pour rendre ce pro- 
gramme accessible a tous les 
utilisateurs de I'APPLE IIGS, y 
compris ceux qui ne dispo- 
sed pas du systeme APW 
(relire I'orticle de Nicole 
BREAUD-POULIQUEN). 



PLA 
RTS 

END 

COMMLN DATA 

ID DS 2 



EVENT 
TOUCHE 
QUAND 
0U 



DS 2 
DS 4 
DS 4 
DS 4 



;donnees communes 
;N'd'identite sous lequel le 
Memory Manager connait ce programme 
jresultats de GetNExtEvent 



MODIFIER DS 2 
END 



PR. BASIC 



10 
20 
30 
40 
45 
50 
60 
62 

63 SCB = 8261 : REM 

64 rttXX = 8287: REM 
65 
66 

67 IF N = 340 THEN 
7Q CALL 8192: REM 



+ 1,2: POKE MAXX,128 
1,1: POKE MAXX,64 



75 ID = 8420: REM 



BO 

n 



PRINT "Lb but de cette application est de montrer comment f a i re" 
PRINT "appel aux OUTILS du GS pour utiUser l'enuironnement type Mac' 
PRINT "-!e bureau electronique en page Super Haute Resolution 1 
PRINT "en restent COMPATIBLE auec BASIC APPLESOFT et ProDOS 8' 
PRINT CHR* (4)*BL0A0 PG.08J" 
PRINT "le S/P est charge en $002000" 

PRINT "Les pages Ze>o n^cessaires aux Outils sont en $003000" 
PRINT : INVERSE : PRINT ■ 620 0U 340 *\\ NORMAL 
$2045 
*205F-2Q60 
INPUT Hi IF N 3 THEN END 
IF N = 620 THEN POKE SCB, 128: POKE NAXX 
POKE SCB,0: POKE MAXX + 
$2000 
$20E4 

demarraoe du Tool Locator" 
demarraoe du Memory Manager 3 
PEEK (ID + t) / 16;MAINID = PEEK (ID) 
N" d'idmtif ication du bloc courant " j TYPE: "00" ;MAMD 
PRINT "ProDOS alias $3001 possede la memoire de recran Super Haute 
Resolution" 

PRINT "dont QuickDraw devra se serwir* 
PRINT "on ua chercher le handle de cette zone $EJ0000" 
PRINT "puis le ctfsaHouer pour laisser QuickDraw s'en servir:* 
PRINT H -FindHandle" 
PRINT * -DisposeHandle n 
PRINT "-demarrage de QuickDraw" 
PRINT "-demarrage de rEventManaqer" 

PRINT "La boucle principale du S/P traite les £u£nements oar: 
PRINT "-GetNextEwent pour les faire connaitre au programme" 
PRINT "qui attend que le bout on -sour is soit enfonce pour " 
PRINT "faire varier la couleur du fond" 

PRINT "et qui termine la boucle d£s ou'une touch-e est pressGe" 
PRINT "Le retour au programme BASIC appelant necessite: 
PRINT B -fermeture des outils sauf le Memory Manager" 
PRINT " -reallocation de la me"moire Super Haute Resolution par:" 
PRINT " -NewHandle " 
GOTO 62 



PRINT 
PRINT 
100 TYPE = 
110 PRINT 
120 

130 
140 
150 
160 
170 
180 
190 
220 
230 
240 
250 
260 
290 
Z92 
294 
296 
300 



3. Perspectives 

Sachant qu'il faut 
laisser aux outils des 
zones de travail ou 
Pages Zero dans le 
banc $00, qu'un pro- 
gramme en BASIC 
APPLESOFT ne s'exe- 
cute que s'il est dans 
le banc $00, que pour 
le Memory Manager, 
c'est ProDOS 8 qui est 
proprtetaire des 
blocs : 

SOQQS0O-SOOB8OQ et 
$010800- G1B8G0 puis 
SE0200G-SEG6GOO et 
E12aO(3-ElA0(30 I 

le travail de recher- 
che des mellleures 
adresses d'implanta- 
tion estouvert. 

Les outils seraient 
done tous utilisables 
en cohabitation avec 
du BASIC? A vous 
maintenant de faire 
travailler Window 
Manager, Menu 
Manager, Control 
Manager, Dialog 
Manager, etc 
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WMMUMHMMMHM 

GUY-HACHETTE 



TRES SIMPLE ! 



C PAS POSSIBLE 

Imaginez une course d'ordinateurs : un M05 sorti tout droit de chez Thomson et de I'Educa- 
tion nationale, mon vieil APPLE lie tout vermoulu, avec PASCAL UCSD, mon tout-nouveau- 
tout-beau GS equipe de son C de competition, 

Meme parcours pour tout le monde : calculer 10 fois {pour faire bonne mesure) Ies nombres 
premiers apparaissant dans la suite d r entiers de 1 a 10000. 



Resuitat des courses 

M05 + BASIC : a 56 minutes, il a fallu abattre I'ordinateur : il souffrait trop. 

APPLE fie + PASCAL : 14 minutes, pas mal, I'APPLE He ! ... on a quand meme du refaire la 

peinture. 

APPLE II GS + C : 6 secondes ! 

Oes commentaires, des questions, oui, non, boff ! OK ! je vous sens plein de courage : 
void la saga des variables, I'epopee des objets informatiques. 




C COURACEUX 

Fini de s'amuser ! aujourd'hui, on atfaque Ies cha- 
ses serieuses et ceux qui liront cet article jusqu'au 
bout ne seront plus jamais Ies m ernes : une majeste 
certaine illuminera leurs traits fatigues. Quant aux 
ELUS qui auront tout compris, un C d'argent bril- 
lera sur leur noble front. 

Une tagon elegante d'aborder serieusement un Ian- 
gage consiste a detinir Ies objets (Ies variables) 
qu'il manipule et la fa^on dont i! Ies manipule. 
Le tres venerable SAINT N1KLAUS WIRTH, auteur du 
tres regrette PASCAL, nous apprend que ALGO- 
RITHM + DATABASE = PROGRAM. Ce qui, en bon 
fran^ais, signifie a peu pres : si tu sais ecrire 
PRINTF "HELLO" et que tu ne sais pas comment 
STRUCTURER tes donnees, tes programmes font rire 
ou pleurer, selon qu'on Ies regarde ou qu'on Ies 
utilise. 

C LA RENCONTRE DE5 QUATRE TYPES 

La puissance d'un langage informatique est tres 

TREMPLIN MICRO 



liee a la fagon dont il peut manipuler Ies objets (Ies 
variables) qui lui sont confies. 
BASIC, lui, n'est pas mechant. Je rappelle aux 
inconscients, a ceux qui se seraient aventures sur 
ces lignes bourbeuses sans repasser leur BASIC 
ELEMENTAIRE, que ce langage delicieux possede 
en gros quatre types predefinis : ENTIERS, REELS, 
CHAINES DE CARACTERES, et un quatrieme discret 
et cache comme une taupe, le type LOGIQUE, 

Ces objets, Basic sait Ies organiser en tableau et en 
fichier, done en structures lineaires simples. 
La declaration du type d'un objet Basic se fait au 
moment de son utilisation par la presence d'un suf- 
fixe $,%, ou par une absence de suffixe selon que 
Ton veut declarer une chaTne, un entier ou un reel. 
Seule la structure TABLEAU echappe a la regie et 
doit etre declares avant ('utilisation par Instruc- 
tion DIAA. 

Ce petit rappel ayant distrait Ies BASICOIS et Ies 
BASICQISES, passons vite a C que je vais detinir 
par ses differences. (suite page 12} 
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On pourrait dire que le langage est d'autant plus 
puissant el efficace qu'il possede de types d J objets 
differents, et de possibilifes d'organiser ces objets 
en structures complexes. 

C TYPE 

C est un langage "type" il permet I'utilisation 
d'objets de types divers selon que Ton veut privile- 
gier la Vitesse d'execution, I'encombrement en 
memoire ou encore la puissance de calcul. 

A la difference du BASIC, route variable devant 
etre utilisee dans le cours du programme, doit etre 
declaree a I'avance. Ceci permet une gestion effi- 
cace de memoire et un gain de temps appreciable 
pour le compilateur. 



En flask nous eeririons : 


tondis qu'en c : 


10 X% =5 
20 

3a 


int X; 
X = 5; 



Remarquons au passage que (Instruction d'affecta- 
tion ( = ) est la meme en BASIC et en C . Elle se 
prononce X regoif 5. 

Llnconvenient de I'ecriture C est qu'elle ne per- 
met pas d'identifier immediatement le type d'une 
variable dans le cours d'un programme : il faut 
remonter a sa declaration et celle-ci est parfois 
lointaine. 

Son avantage principal est de pouvoir limiter la 
duree de vie (on dit plutot la visibrlite ou la porfee) 
d'une variable a la zone de programme strictement 
necessaire et de limiter ainsi les melanges de 
variables bien connus des programmeurs BASIC, 

Dans le programme ci-dessous il existe deux varia- 
bles x distinctes et elles possedent une valeur dif- 
ferente selon que Ton se trouve dons le bloc 1 ou 2, 



mam ( ) 

e /* un premier bloc V 

int x =5; /* on fabrique une variable entiere * . 

printf( J '%d ir r )(); /* eton I'ecrit,,*/ 

/* on reviendro sur la syrttaxeV 

e /* un deuxieme bloc */ 

int x = 7; /* une deuxieme variable x V 

prinff("%d x) ; /* ia premiere n'est plus VISIBLE*/ 

e / * fin du deuxieme bloc retour au T. 

prlntf( ' %d$n" r x] ; /* coucou la variable 1 est revenue V 

e /* fin du bloc IV 



En C les /* et V delimitent les lignes de 
commentake. 

A part la syntaxe farfelue de printf (farfelue, mais 
extremement pratique), si vous avez execute ce 
programme vous avez tout compris. 

II produit I'aff ichage 5 7 5. 
On dit que les variables x sont des variables LOCA- 
LES. On distingue en C les variables LOCALES et 
les variables GLOBALES qui apportiennent a tout 
un programme. 

Malgre cela - ou peut-etre meme a cause de 
cela — , les langages "types" font toujours un 
peu peur aux programmeurs BASIC. Ces derniers 
considerent comme une injuste punition ces 
declarations "inutiles". 

Je vais essayer de leur prouver que, loin d'etre 
penalisanfe, cetfe necessite permet une grande 
souplesse dans ies techniques de programmation. 

LA DECLARATION DES VARIABLES EN C 

Pour exister, dans la majorite des langages un 
objet informatique (une variable por exemple) doit 
etre defini par quatre elements : 

1. Un identificateur, le "nom" de Tobjet (a, b, toto). 

2. Un type associe (nombre entier, reel chaine de 
caracteres). 

3. Une valeur associee (10, 15, 12, "machin"). 

4. Une "classe de memorisation" definissant la 
duree de vie. 

(En Basic, lo classe de memorisation est une et indi- 
visible puisqu'une variable est defrnie pour tout le 
programme). 

Cette structure quadri-parties correspond a la reo~ 
lite physique de I'organisation memoire dans les 
entrailles profondes de la machine (pouah ! ). 



Langage de haut niveau 



IDENTlFfCATEUft 



OBJET 



DUREE DEVIE 



TYPE 



VALEUR 



Niveau machine 



ADRESSE PLACE EN MEMOIRE 

OBJET 

GESTION OE MEMOIRE CONTENU 
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Le langage C est protiquement le seul a pouvoir 
passer de Tun a I 'autre niveau de representation 
sons probleme, ce qui lui a valu sa reputation 
d assembleur haut niveau. 

Nous allons passer en revue les diflerents consti- 
tuents telsqu'ils existent en C APW. 

LES IDENTIFICATEURS 

ll fauf bien le reconnoitre, on prend de mauvaises 
habitudes en BASIC APPLESOFT. Comme ce lan- 
gage ne consider© que deux leftres significative* 
pour nommer les variables, comme de plus il 
n J apprecie pas tellement les identificateurs conte- 
nant des mots reserves, on en vient tres vite a pro- 
grammer avec des A$ des I et des N qui ne rappel- 
lenten rien t'objet manipule. 

C lui, considere TOUS les caracteres de I'identifka- 
teur comme significatifs et distingue meme majus- 
cules et minuscules : Toto el toto sont des identifi- 
cateurs differents en C ■ 

II faut en prof iter pour nommer intelligemment les 



variables que Ton utilise. Nous verrons par la suite 
que le type pointeur constitue d lui seul un outil 
prodigieux pour rendre un programme totalement 
incomprehensible ; raison de plus pour bien choisir 
les identificateurs et ecrire TVA plutot que Z. 

LES TYPES PREPEFINIS 

Le C de I'APPLE IIGS se distingue par une opulence 
de types assez remarquable. 
Les types numeriques en particulier sent tres nom* 
breux : alors que le type reel de Basic Applesoft 
presente juste assez de precision pour me permet- 
tre de calculer mes droits d'auteur sur ces articles, 
C offre pour les types numeriques une representa 
tion entiere, signee, ou non-signee, courte, lon- 
gue, etendue, flottonte, double, enumeration, etc. 
j'en passe et des plus specialises. On doit pouvoir 
calculer la distance de la Terre □ la Lune en 
centimetres ! 

Le tableau ci-dessous resume les principaux types 
de C APW je vous laisse la joie de les decouvrir. 



TVPE 


VALE II RS 


Nb OCTETS 


char 


- 128 + 128 


1 


unsigned char 


+ 255 


1 


short 


- 32767 + 32767 


2 


unsigned short 


+ 65535 


2 


int 


- 32767 + 32767 


2 


unsigned int 


+ 65535 


2 


long 


- 2147483648 + 2147483647 


4 


unsigned long 


+ 4294967295 


4 


enum 


depend de Enumeration 


1,2,4 


* 


pointeur vers une variable 


4 


float 


IEEE simple precision 


4 


double 


IEEE double precision 


8 


comp 


Valeur enttere format ROMTOOL 


8 


extended 


Valeur reelle format ROMTOOL 
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Certains d'entre vous ont du le remarquer : pas de 
type chame de caracteres predefini en C . En 
fait, C considere qu'une chaine de caracteres res- 
semble trop a un labJeau de caracteres pour 
s'encombrer d'un type specifique. 
C n'est pas tres regardant quant aux melanges de 
types : le type CHAR (caractere) s'accommode par 
exemple tres bien de transporter des valeurs 
entieres, 

Le programmeur en C doit etre vigilant : s'il 
recherche I'efficacite maximale et partant, le code 

tremplin micro 



le plus court possible, il peut etre rapidement 
amene a realiser des programmes generateurs de 
migraine. 

A titre de demonstration le petit programme (que 
vous frouverez en haut de la page 14) affiche les 
leMres de A a Z et leur code ASCII en decimal el en 
hexadecimal,, amusez-vous a chonger le type char 
en type int par exemple et voyez ce qui se passe, 

Une petite explication pour ceux qui s'endorrnent 
au fond de la salle : ce programme,,, ^iiep^ u) 
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/* Melange de types */ 




main ( ) 






e 






unsigned char i; 






for (i = 'A' ; i = 


*;!++); 




printf("%c %d 


%x cn", i. 


U); 


e 







utilise une instrjction tres proche du FOR... NEXT 
du Basic : 

FOR (x = debut ; x «c = fin ; x+ +) e...bloc...e 
Le bloc delimite par e et e sera execute (fin -de- 
but) fois, x etant incremente a chaque boucle 
graced l'operateur unaire + + . 
(/instruction printf que nous avans deja rencon- 
tree permet un affichage formate des donnees il 
s'agit d'une sorte de super PRINTUSING. 
printf (contrdle,argl,org2,...); 
org est Line variable dont le mode d f affichage 
sera conditionne par les caracteres de conver- 
sion contenus dans la chaine controle. 



Caractere de conversion 


Affichage de arg 


%d 


decimal 


%o 


octal 


%x 


hexadecimal 


%u 


decimal non signe 


%c 


caractere 


%s 


chaine 


%e 


notation scientifique 


%f 


notation decimale 


%g 


choisit e ou f (la plus courte) 



LE TYPE POINTEUR 

Le type pointeur fait les del ices et les souffran- 
ces du programmeur en C ■ II provoque plus de 
degats que I'alcool et le tabac reunis dans notre 
communaute elitiste : avec les pointeurs on peut 
tout faire. 

Un pointeur est un entier long designant des 
adresses de variables. Supposez ('existence 
d'une variable de type entier nommee "Objet" et 
declare* par int Objet = 5; 
L'operateur & (ampersand) permet de determi- 
ner I'adresse de cette variable, 

Po = &Objet affecte a la variable Po I'adresse de 
Objet. On dit que Po est un pointeur sur la varia- 
ble Objet. 

L'operateur * (asterisque) place devant le nom 



du pointeur donne la valeur de la variable poin- 
tee : dans notre exemple *Po est egal a 5 et peut 
remplacer Objet dans toutes ses applications. 

Nous reviendrons longuement sur les pointeurs 
dans les articles suivants. f . Pour I'instant, 
souvenez-vous seulemenf qu'un pointeur non ini- 
tialise sur une variable, pointe n'importe ou et 
que ca peut faire tres mal au ProDOS, 

Bans notre prochain numero : 

Un pointeur fov a pu s'mtroduire dans f'espace memoir e. 
Tombera-t-if entre les griffes du trap celebre docteur MALLOC 
ou povrra-t-il rejoindre TQPLEVEi dans le Kernel ?.., Vous le 
saurez en lisant le prochain article de : 

C tres simple, mats $a se compliqve, dans TftEMPUN MICRO. 

A bientdt... Claud» AUBRY. 



Le premier volet de cette serie d'articles a paru dans le numero 1 4 de TREMPUN MICRO 

(bulletin de commande k la fin de la revue). 
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GUY-HACHETTE 



LANGAGE C SUR APPLE IIGS 



Le bon nombre 



(version 1) 



Reprenons I'exercice n°l (Tremplin Micro n°T4), mais en essayant de I'ameliorer sur 3 points : 

• Ouverture du programme sur un ecran vide (home) ; 

• Modification de la fourchette en fonction des limites determinees par les rentrees successi- 
ves de nombres ; 

• Limitation du nombre de coups. 



Cela se troduirait par 
les lignes suivantes : 



Micro-programme 
elementaire. 



1 PRINT CHR$ (4)"PR£3": PRINT 

15 X = 69: C = 0:S = 20; A = 1:Z = 100 

20 HOME 

25 S = S- 1: IFS >0THEN PRINT " ";: GOTO 25 

30 PRINT : PRINT :S = 20:C = C + 1 

35 IF C = 1 THEN PRINT "VOUS AVEZ PERDU ! ": END 

40 PRINT "TROUVEZ UN NOMBRE COMPRIS ENTRE "A" ET "Z"; 

45 INPUT " ";N: PRINT 

50 IF N = X THEN PRINT "C'EST LE NOMBRE - TERMINE": END 
55 IF N > X THEN 70 

60 PRINT "IL EST TROP PETIT": IF N > (A) THEN A = N + 1 : 
GOTO 25 

65 GOTO 75 

70 PRINT "IL EST TROP GRAND": IF N < Z THEN Z = N - 1 : 

GOTO 25 
75 C = C - 1 : GOTO 25 



REMARQUES 



Elk affiche 19 fofc 4 sou- 
iigenements, Pour we ligne 
complete (80 caracleres), i! 
loudraHS = 2L 



La ligne 25* pourrait ef re avantageusement remplacee par : 
FORS = 1 TO 19 : PRINT" ";: NEXT 

Mais la ressemblance avec le programme en C se revelerait moins 
evidente. Pourquoi le C = C - 1 de la ligne 75 ? Simplement pour ne 
pas comptabiliser un nombre sans influence sur la fourchette propo- 
see. Si cette derniere est 65, 70 et que Ton rentre un nombre plus petit 
ou egal 65,., ou plus grand ou egal 75, on aboutira a la ligne 75 : un 
coup pour rien ! (suite pag* 16) 



TREMPLIN MICRO 



Iff IMflfff Vfff Vi 
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EQUIVALENCE EN LANGAGE C 



main( ) 
e 



e 



PROCESSUS 



int x, n, c, s, a, z; 

x = 69; 

c = 0; 

s = 20; 

a = 1; 

z = 100; 



CL: 
LG: 



printf("tf"); 



* CL : Nouvel ecran, 

* LG : Une ligne de soulignement 

suivie par deux retours. 

* S est reinitialise 6 2d. 

* C est increment©, Quand il est 

egol 6 10, message et tin de 
programme, 

* Chaix du nombre 

* Si le nombre cholsi est egal 6 x, 
c'est termine ! 

* S'il est plus petit que x, on I'an- 
nonce. 

* Si, dans ce cas-la, n est plus 
grand que a, on fait a = n + 1* 
Retaur 6 LG. 

* Si n est plus grand que x, on 
I'annonce. 

* Si, dans ce cas-ld, n est plus 
petit que i, on fait i = n - 1 . 

* Sinon, n~ OetC-C-1, puis 
goto LG. 



— s; 

if (s > 0) e 

printff: "); 

goto LG; 

e 

printfCflipi"); 

s = 20; 
+ +c; 

if ( c == 10) e 

printf("VOUS AVEZ PERDU !$n"); 
exit (0); 

e 

printf("TROUVEZ UN NOMBRE COMPRIS ENTRE %d ET %d -> a, z); 
scanf("%d", &n); 
if (n == x) e 

printf("C'EST LE NOMBRE - TERMINER'}; 
exit (0); 

e 

if (n < x) e 

printfpL ESTTROP PETIT^n"); 
if (n > a ) e 

a = n + 1; 



e 



goto LG; 



if (n > x) e 

printfpL EST TROP GRAND^n"); 
if (n< z) e 

z = n - 1 ; 



e 

e 

n = 0; 
— c; 



goto LG; 



goto LG; 



prlntfC'fff"); vide lecran. 
~S; signifie $ — $ - 1. 
+ + C; signifie C = C + 1. 
9 n indique un retour ligne. 
f tlf H en genere done 2. 
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GUY-HACHETTE 



UTILITAIRE llSia 



Francois GALLET et Thierry FILLAUT 



CATAVISU 



Cet utilitoire permettra aux heureux utilisateurs 
de ProDOS de visualiser I'occupation de la dis- 
quette presente dons le lecteur (port n°6). Le pro- 
gramme baptise "CATAVISU" affiche a I'ecran 
une table d'occupation avec : 

— Sur la ligne horizontale superieure les pistes 
numerotees 00 a $22 ce qui fait de 00 a 34 
en decimal soit 35 pistes. 

— Sur la colonne la plus a gauche les numeros 
de blocs numerates de a 7 soit 8 blocs. 

TABLE D'OCCUPATION DE LA DISQUETTE 

ooooaQoasooooooon 1 1 ii u in 1 n 11222 

O123456789ABCDEF0123456789ABCDEFO12 

a 

1 .« i nd i que un bloc Mbre 

2 

3 

4 *« indique un bloc occupe 

5 
6 
7 

L'utilitaire debute a I'adresse $9000 avec I'afff- 



chage des lignes de presentation. Puis, grace au 
MLI et a la commande READ BLOCK qui effectue la 
lecture d'un bloc de 512 octets, le programme va 
chercher sur la disquette le VTOC (ou BIT-MAP) la 
piste 00 bloc 06. La., il trouve, sous la forme de 35 
octets, Toccupation de la disquette avec pour 
regie : 

— Un bloc libre represents par un 1 ; 

— Un bloc occupe represents par un 0. 

II suffit done de lire ces octets et de les transferer 
dans une partie de la memoire de i J APPLE ($2000) 
pour les traiter. Ce traitement consiste a prendre 
un octet el a I'analyser selon les regies ci-dessus f 
puis a afficher un ou un "*" suivant le cas. 
ATTENTION ! cet utilitaire ne fonctionne qu'avec 
ProDOS. En effet la notion de blocs n'est utilisee 
que par ce systeme d'exploitation (1 bloc = 2 
pistes). 

Pour utiliser le programme, il suffit de taper : 

— BRUN CATAVISU. C 
_ CALL 1013 

— et d'utiliser alors le "8" pour appeler 
l'utilitaire. 



CATAV1SU.S 



ASSEMBLAGE 

par ProCODE 



SAUVEGARDE : 

BSAVE CATAVISU.C,A$9000,L300 






BASCALC 


EQU 


*FBC1 


i 


BLOCK 


EQU 


$80 


2 


CH 


EQU 


*24 


3 


CM 


EQU 


$25 


4 


HOME 


EQU 


$FC53 




MLI 


EQU 


$BF00 


6 


PAGE1 


EQU 


$C054 


7 


ST ROUT 


EQU 


$DB3A 


8 


MTAB 


EQU 


$FC22 


? 


* 






10 




ORG 


$9000 


11 


* 







;Adresse du MLI 



(suite page J 8) 
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9000: 


A? 


00 




] 2 




LDA 


ty <± n n 




Lnange hi ntn oe uaieur pour 


9002: 


85 


73 




1 3 




5Tm 




\ 




9004: 


A9 


94 




4 M 

1 4 




LDA 


£»t4 


: 




9004: 


95 


74 




1 5 




OTA 

STA 
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9008: 


A9 


13 




17 




i n. a 

LDA 


£ < DEBUT 


* 


rerime t d utiiis©r « pour 


9Q0A: 


8D 


F6 


03 


1 3 




OTA 

STh 


*3r 6 


i 


appe 1 &r 


900D: 


A9 


90 




i o 

1 9 






O \ T\£ O 1 IT 

f ? DEBUT 


i 


1^ j- _ _ _ + ; _ _ OAT Al 1 T 1 1 


900F : 


80 


F7 


03 


20 




OTA 








9012: 


60 






21 




RTS 
















22 




















23 












9013: 


20 


58 


FC 


24 


DEBUT 


J5R 


H Un b 




tttdCe 1 ecrin ■ 


901 6 : 


A9 


07 








i r\A 


t»U f 


> 


1 i nno "7 Dk An 1 a if -f i r" h nopt 

L 1 UMc fa rrcp» [ flTT 1 Lll ■ VC( la 


9018; 


8D 


2B 


91 


O: / 

26 




OTA 

STm 


L INDtr 


! 


□& s nor s repres • its d i ocs ■ 


901 B : 


A2 


B0 








LDA 




i 


It? LarflCTcre U Ualla -A ■ 


on i r\ . 

yO I D : 


A o 

At 


1 




9Q 
iO 






p *n 1 


\ 


1 nnr>o n*1 

U 1 U 1 1 1 1 " IE 1 ■ 


911 1 F : 


2L 


C A 


ori 
LU 


OQ 
£7 




RTT 

D J. 1 


r hoc i 


i 


P1L live I a III C 1 II ■ jJI llli_i "J qji i 


on oo . 

tQ22 : 


2A 






OU 




PHI 








nnnn . 

70 23 : 








o J 




1 




■ 


rViLJiCD nap . 
1/ 1 V 1 3C pal s~ ' 


?024 : 


AB 










1 H T 








90 25 : 


5A 






Jo 




P uv 
rni 








9026 : 


AD 


2B 


91 


on 




1 PsA 
L UN 


L 1 iNL/Cr 


■ 


1 1 Lie I IUMtr Li (ITT 1 L « <J A' 13- n ■ 


9029: 


20 


CI 


FB 


35 




JSR 


BASCALC 






902C: 


7A 






36 




PLY 








902D : 


O A 

8A 






oY 




TVA 
1 AM 








r02t : 


9 i 


28 




oo 




o 1 H 




i 


All i r Hit r ir> ar Ha u 


9030 : 


E8 






OT 




T KIV 

UN a 






rr c p or e att 1 L ■ Carat' a-ti I van i i 


9031 : 


AD 


2B 


91 


*i n 






i t n c p 
L 1 h L? b r 






9034: 


C9 


0E 




4 1 




Lrtr 


t»U b 




L/ci n * I I Qric pour i ott i ciiayc 


90 36 : 


F0 


05 




h2 




nrri 
BbU 


oUl 1 b 




Ou j j alors on a-ff i che le titre* 


9038: 


EE 


2B 


91 


43 




f klO 

INC 


i luncis 
L :N Jtr 




Non : on aesceno □ une i igne. » , 


903B: 


80 


E8 




44 




BRA 


UERTI C 




et r&tour pour nouvc 1 a+4ic. 










45 












903D I 


A9 


02 




46 


SUITE 


1 Pi A. 

LDA 


c ± n o 






903F : 


AO 


04 




47 




1 WW/ 

LDY 






rosiiionne le cur&eyr nor i z * 


9041 : 


20 


AE 


90 


48 




too 


one 




HTTicne ia c n a j n e ae tdf *l iti c • 


9044 : 


A9 


08 




49 




i r\A 


t <Lno 




9046: 


AO 


91 




50 




LDY 


£ >CH3 




TABLb D ULLUrHl lurt Dt Lh UJ d~ 










51 










1 1 fTT O It 

QUETTE 


9048: 


20 


3A 


DB 


52 




t j\ rt 

JSR 


ot n n i it 

ST ROUT 














53 












904B: 


A9 


05 




54 




i r\A 
















55 










pos 1 1 1 on & . 


904D: 


AO 


04 




56 




i r\v 
LDY 








904F: 


20 


AE 


90 


3/ 




JbK 


one 






9052: 


A9 


CO 




58 




LDA 


£<CH1 




"000000000000000011 11 lilliil 111 










5? 










11222" 


9054: 


AO 


90 




60 




LDY 


£>CH1 






9056: 


20 


3A 


OB 


61 




JSR 


STROUT 














62 












9059: 


A9 


06 




63 




LDA 


£«06 






90 5B: 


AO 


04 




64 




LDY 


£*04 


1 
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90 5D: 


20 


AE 


90 






JSR 


POS ; 




9060 : 


A9 


E4 




66 




L Uh 


t\Lnz j 












67 








EF0 1 2 


9062: 


AO 


90 








LDY 


£>CH2 ; 




9064: 


20 


3A 


DB 


6? 




JSR 


STRQUT ; 












70 


* 








9067: 


20 


00 


BF 


71 




JSR 


ML I ; 


Appel du MLI . 


90 6A: 


80 






72 




DFB 


BLOCK ; 


Appel fonction READ BLOCK MLI . 


906B: 


86 


90 




73 




DA 


PARAM ; 


Fourn i t les param^tres. 










74 










906D: 


A2 


00 




75 




LDX 


£$0G 




906F : 


86 


FE 




7g 




b 1 X 




Prepare !& c on p t e u r p e rm e 1 1 a n t 










77 








la lecture des blocs* 


9071 : 


A9 


04 




78 




j rv a 


£$04 




9073 : 


85 


4C 




79 




ST A 


*4L 


Pos i t i onne nor \ zontal err^en t 1 e 










o n 
dU 








curseur pour aTt i cner • 


90 7d : 


AO 

Ay 


U7 




D 1 


LNL 


LUh 


t»U / 




90 77 : 


85 


4D 








3 I A 




Pos i t i onne vert* 1 e cur seur 










S3 








pour 1 ' a*f "f i chage » 










84 










9079 : 


A6 


FE 




85 


nni inni 1 


1 r\\_/ 

LDX 


»FE 


Stocke la valeur du pointeur 










86 








d oc tets dans X • 


90 7B: 


IE 


00 


20 


87 




ASL 


*2000 ,X 


D^cale vers la gauche. 


90 7E; 


90 


OC 




88 




BCC 


3UITE1 


Si C=0: bloc occupe . 


9080 : 


20 


AA 


90 


89 




JSR 


P0S1 


Sinon saut pour pr^p . I'a-ffic, 


9083: 


A9 


BE 




90 




LDA 


£ <CH5 


Aft i che . - . 


9085 r 


AO 


90 




9 1 




LDY 


£ >CH5 


, al or s 


9087 : 


20 


3A 


DB 


92 




TOO 

JSR 


r~T nni it 

STROUT 


. , _ ii n 

un 


on DA ■ 


on 


Uft 




7 J 




PDA 


r nr-jT 


i uperaxion su i van; .e 










O^ 

y*t 










on of ■ 


On 
cv 


a a 


on 

yu 


7 J 


by 1 [ 1 1 


f CD 


r Uo 1 


I a ^1 /™ ac-T 1 1 n A 

i Lt? Q I OC £51 DCCUpe i 


an or , 


AO 

At 


BC 




TO 




1 rv\ 


t \LHH 


1 un prepare f itt i tndge ■ 


on o 1 ■ 


HU 


on 

yu 




7 f 




L U I 






on oi . 

9093: 


in 
cV 


oA 


Do 


OQ 
TO 






QTBrorr 

D 1 nUU r 


, H / i, n «« at" 

i □ un ~ « 










OO 

yy 


N 








9096 : 


E6 


4D 




1 00 


I UN 1 


1 NL 




; un incremente la i igne 


9098: 


A5 


4D 




1 1 




LDA 


*4D 


; et compare ayec la 


90 9A: 


C9 


OF 




1 02 




CMP 


£$F 


; derniere ligne possible* 


90 9C: 


00 


DB 




103 




BNE 


Ann ni 1 

COUCOU 


; <> on a d autres olocs a attic 


909E: 


E6 


FE 




104 




INC 


*FE 


; sinon on incremente pour 










105 








; passer a la piste suivante* 


90A0: 


E6 


4C 




1 06 




INC 


% 4C 


i Incr* pos. hor. du curseur 


90A2: 


A5 


4C 




107 




LDA 


$4C 


i et compara i son ayec 


90A4 : 


C9 


27 




108 




run 

CMP 


£f 27 


; la derniere position poss i bl e 


90A6: 


F0 


0D 




inn 

109 




nrn 

BEG 


FIN 


i bl g i ttcren i r on a o auires 


90A8: 


80 


CB 




110 




BRA 


ENC 


j pistes a traduire- 










1 1 1 

■111 










90AA; 


A5 


4D 




112 


P0S1 


LDA 


*4D 




90AC: 


A4 


4C 




113 




LDY 


$4C 












114 










90AE: 


85 


25 




115 


PQS 


STA 


cv 




90B0: 


20 


22 


FC 


116 




JSR 


VTAB 




90B3: 


84 


24 




117 




STY 


CH 












118 


* 






(Suite page 
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90B5: 60 



90B6: 03 

90B7: 60 

9088: 00 20 

90BA: 06 00 



90BC: 
90BD: 
90BE: 
90BF: 
90CO : 



90E3; 
90E4: 



9107: 
9108: 



AA 
00 
AE 
00 

BO BO BO 

BO BO BO 

BO BO BO 

BO BO BO 

BO BO 60 

BO Bl Bl 

Bl 31 

Bl 81 



Bl 
Bl 



Bl 



81 Bl 
Bl Bl 



Bl Bl 
Bl 



B2 



B2 



91 2A 
912B 



B2 B2 
00 

BO Bl 
B3 64 85 
Bi B7 88 
B9 CI C2 
C3 C4 C5 
C6 BO Bl 
B2 B3 B4 
B5 86 87 
BB B9 CI 
C2 C3 C4 
C5 C6 BO 
Bl 82 
00 

D4 CI C2 
CC C5 AO 
C4 A7 CF 
C3 C3 D5 
DO CI D4 
C9 CF CE 
AO C4 C5 
AO CC CI 
AO C4 C9 
D3 D) D5 
C5 D4 D4 
C5 
00 
00 



3 1 9 


FIN 


RTS 




120 


+ 






121 








122 


PARAM 


HEX 


03 


1 TO 


Urti l 


HtA 


ou 


1 24 


BUFFER 


r\j\ 

DA 




3 25 








126 


BLOCS 


HEX 


0600 


127 








128 


CH4 


ASC 


"*" 


129 




HEX 


00 


130 


CH5 


ASC 


■ 


131 




HEX 


00 



1 1 fail! 3 param£ tres : 

N * du connecteur du drive 

Adr . du trans-fert des donn4es 

du UTOC et num^ra du 

bl oc qui do i t £tce 1 u . 



^ 90 W l 

9«0* 
96301 



132 CHI 
133 



9&6Q*. 

ASC "000000000000000011 
HEX 00 



11111111111111222" 

»'»'■ f ,« » » « t w « • * I % * " ^« » 4 »? 



134 CH2 
135 



136 CH3 
137 

138 LINDEP 



*» '■ * 1 W * * * 3, » * * S « " " c * 5 

8W»* ■ 

ASC "0i2345678?ABCDEF012345678?ABCDEFQ12" 
HEX 00 

«, R2 « BQ * * W 6A ^ A Ot c5 *° £ «« 

ASC "TABLE D* OCCUPATION DE LA DI SQUETTE" 
HEX 00 
HEX 00 
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GUY HACHETTE 



CONNAITRE L'APPLESOFT 



Marcel COTTIN1 



POKE, COMMANDE APPLESOFT 



L INSTRUCTION POKE DU BASIC APPLESOFT 



POKE est une instruction foisant partie de I'inter- 
preteur du Basic Applesoft. L'adresse $D072 pointe 
$E77A qui est I'entree (adresse-1) de la routine 
POKE. C'est une instruction qui permet de plocer a 
portir d r un programme Basic par exemple, une 
valeur dans un emplacement memoire dont 
l'adresse est specifies. L'execution d'un POKE 
revient a selectionner une odresse correspondant a 
un emplacement memoire et d y placer une valeur 
determinee. (/instruction POKE possede par ail- 
leurs la caracteristique de selection dun commuta- 
teur logique du systeme. Si l'adresse declaree 
apres le POKE n'existe pas r instruction sera igno* 
ree. POKE peuf etre declare en mode direct (cla- 
vier) ou en mode indirect (programme Bask). 



Syntaxe : 



POKE ADRESSE, VALEUR oil 
ADRESSE est une expression 
anthmetique comprise entre 
et 65535 Indus, et VALEUR une expression anthme- 
tique comprise entre et 255 inclus. 



APPLESOFT ROUTINE POKE 



E77B- JSR $E746 



E77E 
E77F 
E781 



TXA 
LDY 
STA 



£$00 
($50),Y 



Transfer! de l'adresse du POKE 
dans S50-S51 , 

Au retour du sous-programme, ta 
valeur du POKE se trouvera dans 
le registreX. 

Copie la valeur du POKE dans A. 
Initialise le registre Y, 
et copie la valeur du POKE a 
l r emplacement memoire specific. 



E783 



RTS 



Retour au 
appelant. 



sous-progromme 



Remarques : 



Une odresse negative est Tequivalenf d'une 
adresse positive obtenue en lui additionnant la 
valeur 65536. 

L'equrvalent du POKE en longage machine est 
STA (STore Accumulator). 

En programmation Basic, les valeurs declarees 
apres POKE devront etre en base 10, tandis que 
le langage machine requiert les valeurs en base 
16. 

POKE place dans l'adresse indiquee un nombre 
binaire code sur 8 bits, equivalent au nombre 
decimal declare. 

Si l'adresse declaree ne correspond pas a une 
adresse memoire valide, alors ('instruction sera 
ignoree. Si le POKE est adresse a une memoire 
morte (ROM), celui-ci restera sans effet. 

Si les paramefres declares apres POKE sont 
hors des limites fixees par I'AppieSoft, un mes- 
sage d'erreur sera retourne : ILLEGAL QUAN- 
TITY ERROR. 

POKE peut modifier le contenu d'une adresse 
ou commuter des switchs, encore appeles com- 
mutateurs logiques. Ce dernier mode est selec- 
tionne en ecrivant ou en lisant, a certaines 
adresses servant de point d'entree a ces com- 
mutateurs logiques. 



POKE DE LA PAGE ZERO 

La page zero contient un certain nombre de valeurs et pointeurs utilises soil par I'interpreteur AppleSoft, soit 
par le systeme d'exploitation. Une totale mahtise et une manipulation astucieuse de ces vecteurs... (seepage 22) 
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peut dons bien des cas simplifier la programme- 
lion. La suite des pokes n'est nuHement exhaus- 
tive, mais permet au debutant d'avoir d sa portee 
un outil de travail non negligeable. 

Transmission du pointeur pour I'appel du usr 

Avec la fonction Applesoft USR f qui appelle un 
sous-programme en langage macnine, ('argument 
doit etre transmis a trovers raccumulateur flottant. 
fl est alors necessaire de sauvegarder I'adresse 
d'appel en page zero, adresses $000B-$000C, avec 
un JMP (4C) dans $000A. Le resultat est, par la 
suite, place dans raccumulateur flottant. Cette 
transmission de parametres peut se faire par une 
serie de pokes aux adresses precitees, de lo page 
zero : 

POKE 10,76: POKE 12 r ADR/256 : POKE RADR 
- PEEK (12) * 256 ou ADR est la valeur de 
I'adresse memoire. 

Code couleur en graphiqueCR 

La valeur de la couleur en mode GR est stockee a 
I'adresse $003(3 (48 - COLOR). Cette valeur peut 
etre modifiee en chongeant le code de la couleur ; 

POKE 48, COLOR * 17 ou Color equivaut au code 
couleur ehoisi. 

Mode d'aff ichage Applesoft 

Le mode d'affichage video est sous controle de la 
fonction INVFLG, qui conditionne le mode d'affi- 
chage de I' Apple. D'apres la valeur contenue dans 
I'adresse $32 (50), I'offichage passe en mode nor- 
mal (£$FF), inverse (£$3F) ou clignotant (£$7F). 

POKE 50,255 Mode NORMAL 

POKE 50,63 Mode INVERSE 

POKE 50,127 Mode FLASH 

instructions interdites en mode direct 

Certaines des commandes Applesoft comme 
OPEN, READ, WRITE, APPEND ou POSITION, ne 
peuvent etre adressees en mode direct (clavier) 
sans rencontrer le message d'erreur NOT DIRECT 
COMMAND. Pour modifier cette situation imposee, 
placez en mode direct, avant un ordre GOTO ou 
GOSUB et sur la meme ligne, d ('emplacement ou 
le programme contient une des instructions preci- 
tee: POKE 51,128. 

Par la suite, I'Apple se positionne de lui-meme 
dans le mode initial par I'intermediaire du Monitor, 

sauvegarde des registres K f A, x et Y 

Lorsqu'il est necessaire de sauvegarder des adres- 
ses du compteur ordinal (registre PC) et des regis- 



tres A, X et Y ( avant I'appel d'un sous-programme 
du Monitor, il faudra effectuer la serie suivante de 
pokes : 

POKE 58 r Adrl : POKE 59,Adr2 : POKE 69,Adr3 : 

POKE 70 ( Adr4 : POKE 71 ,Adr5 
Les adresses 58,59 desfgnent le pointeur de 
I'adresse de sauvegarde du PC, sous la forme PC 
octet poids faible, et PC octet poids fort. Les adres- 
ses 6970 et 71 sont respectivement destinees a la 
sauvegarde de I'accumulateur (A), du registre X, et 
du registre Y. 

Parametres avant I'appel d une routine du Monitor 

Les adresses $3C-$43 (60 a 67) sont utilisees pour 
transrnettre des parametres a une routine du Moni- 
tor, pour deplacer ou verifier un espace memoire 
par exemple (MOVE, VERIFY etc.). Avant locu- 
tion de la routine, il sera necessaire de mettre le 
registre d'index Y a zero. L'instruction CALL - 610 
effectue cette mise a zero. Exemple de transmis- 
sion de parametres et de mise a zero prealable du 
registre Y : 

CALL - 610 : POKE 60... 67, Valeur : CALL - 468 
ou CALL - 468 est I'appel au sous-programme 
MOVE [SFE2C] pour deplacer une zone memoire 
vers une autre. 

Mise d zero du registre d'etat (PS) 

L'adresse $48 (72), status du registre d'etat PS r est 
utilisee pour annuler le registre d'etat PS au retour 
d'un sous-programme du Monitor par exemple. 
Avec ('utilisation de la routine de S.H.Lam, il sera 
necessaire par la suite de mettre a zero le registre 
d'etat du microprocesseur : POKE 72,0. 

Debut du programme Basic 

TXTTAB est I'adresse de debut du programme 
AppleSoft, fixee a la valeur $0801 par defaut. Pour 
I'utilisation d'une adresse autre, placez en debut 
de votre programme AppleSoft la ligne suivante : 
POKE 103,1 : POKE 104,Adr/256 : POKE Adr,0 
Votre programme AppleSoft sera ainsi loge a 
I'adresse Adr. 

Modification de LOMGM 

LOMEM, adresse de debut de la zone des variables 
simples et fin du programme Basic, se laisse facile- 
ment deplacer. Pour ce faire, modifiez les adresses 
$69 et $6A(105eH06). 

POKE 106,Adr/256 

POKE 105,Adr-PEEK (106) * 256 

Fixe lo valeur de LOMEM d I'adresse decimale Adr. 



Modification deHIMEM 

HIMEM, adresse de debut de la zone des variables 
de chaines de caracteres e» fin du DOS 3.3, se 
laisse facilement deplacer. II faudra modifier les 
adresses $73 et $74 (1 15 et 1 16) : 

POKE 116 f Adr/256 

POKE 115,Adr-PEEK (116) * 256 

Fixe la valeur de HIMEM d i'adresse decimale Adr, 

Mode direct 

CURLIN se trouve aux adresses $75-$76 et contient 
la valeur $FF en mode direct (a partir du clavier). 
Pendant ['execution d'un programme Basic Apple- 
Soft, le numero de la ligne caurante en execution 
se trouve reactualise a cette adresse. En modifiant 
le contenu de cette adresse, il devient alors possi- 
ble d'executer en mode direct, des instructions tel- 
les que INPUT ou GET. En adressant un POKE 1 1 8,0 
sur la meme ligne que Instruction a transmettre 
en mode direct, I'Apple ne retournera pas de mes- 
sage d'erreur : 

POKE 118,0 : INPUT "ES5AI !! ";E$ 

Pin du programme Applesoft 

Pour modifier le pointeur de la fin du programme 
Basic, lors d'un ajouf d'un programme en langage 
machine par exemple, il faudra modifier les adres- 
ses $AF et $80(175 et 176) : 



POKE 176 1 Adr/256 

POKE 175 f Adr-PEEK (176) * 256 

Fixe la fin du programme Basic d sa nouvelle 

valeur decimale Adr. 

Annule onerr 

POKE 216,0 annule I'instruction ONERR declaree au 
debut d'un programme Basic. 

HCROU HCR2 ? 

En mode graphique haute resolution, il est interes- 
sant de pouvoir utiliser Tune ou I'autre des deux 
pages graphiques, sans pour autant devoir I'affi- 
cher. Si un programme doit modifier une partie 
d'une Image, sans pour autant I'affichen il est pos- 
sible d'intervenir directement sur la page graphi- 
que en modifiant le contenu de I'adresse $E6. 
L'adresse $E6 (230) est utilisee pour memoriser le 
numero de la page graphique ou doivent agir les 
traces des instructions en cours : 

POKE 230,32 selectionne la page HGR ($2000) 
POKE 230,64 selectionne la page HGR2 ($4000) 
POKE 230,96 selectionne une page fictive a 
I'adresse $6000. Cette page ne 
pourra etre affichee directement, 
mais devra au prealable etre 
deplacee en memoire soit dant la 
page HGR, soit dans la page 
HGR2. 



POKE DE LA PACE 2 



La page 2 occupe les adresses $9200-$02FF, et sert 
de tampon d'entree de caracteres frappes au cla- 
vier. La routine de 5,1-1. Lam utilise le tampon cla- 
vier par 1'intermediaire de pokes pour installer en 
memoire des sous-programmes en langage 
machine, Cette meme routine s'utilise aussi d par- 
tir d'un programme Basic pour rentrer des instruc- 
tions via le Monitor ; 
10 Y$ = EXEMPLE$ 
20 Y$ = Y$ + " N D9C6G" 

30 FOR I = 1 TO LEN (Y$) : POKE 511.ASC (MID$ 
(Y$X1)) + 128: NEXT 

40 POKE 72,0 : CALL - 144 

ou EXEMPLE$ pourrait etre "2000 <6000 JFFFM", 
et copie la page graphique fictive debutant a partir 



de I'adresse $6000 et se terminant a I'adresse 
$7FFF, dans ta page HGR (PAGE 1, adresses 
$2000-$3FFF). 

ou encore : 

EXEMPLES = X081 N C081 N D000 < D00G.FFFFM" 
copiera la ROM dans la carte d r extension memoire. 

ou encore : 



EXEMPLES = "300; 20 3A FF 20 3A FF 20 3A FF 60' r 
copiera a I'adresse $0300 un sous-programme 
quelconque, Dans I'exemple cite, CALL 768 execute 
le sous-programme, I'Apple emettra 3 bips. 
La liste n'est pas exhaustive, et toute commande 
du Monitor pourra etre executes par ce procede. 



POKE DE LA PAGE 3 



Cette page reserve une partie de ses adresses au programmeur 



■$03CF), et I'autre partie... {suite page 24} 
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se portage entre le DOS ($03D0-$03EF) et la ROM 
Monitor ($03F0-$03FF). 

Branchement en cas de BRK 

Changement de I'adresse de branchement en cas 
de BReaK du moniteur : 

POKE 1009,Adr/256 

POKE 1008 ( Adr-PEEK (1009) * 256 

Branchement en cas de RESET 

Changement de I'adresse de branchement en cas 
d'un RESET: 

PGKE1011,Adr/256 
POKE 1010,Adr-PEEK (1011)* 256 
ou encore : POKE 1012,0 qui provoque un demar- 
rage a froid du systeme, apres un RESET, 



Branchement en cas du & ampersand 

Modifier I'adresse de saut par le & ampersand est 
possible en modifiant les pointeurs aux adresses 
S03F6 et $03F7 (1014 et 1015), Normalement r 
pointe I'adresse $FF58, 

POKE 1015,Adr/256 

POKE !B14 i Adr-PEEK (1015)* 256 

Touches Ctrl-Y 

['association des touches CTRL-Y permet, lorsque 
vous etes en mode Monitor de faire un saut au 
sous-programme, dont I'adresse est stockee a 
$03F9et$3FA(1017et 1018). Normalement, pointe 
I'adresse $FF65, 

POKE 1018,Adr/256 

POKE 1017 r Adr-PEEK (1018) * 256 



POKE DES PACES 4 a 11 



Les pages 4 a 7 sont reservees a I'espace memoire 
de la page 1 texte, tandis que les pages Sail sont 
celles reservees a la page 2 texte. Elles represen- 
tent I'affichage de I'ecran video. II est possible 
d'affecter un point quelconque de la surface de 
I'ecran, en adressant un POKE a la bonne adresse. 
L'adressage se fait done directement en page 1 
texte aux points des coordonnees x et y. La valeur 
x etant comprise entre et 39 et y entre et 23, Le 
mode d'affichage pouvant lui-meme etre modifie 
d'apres la variable MOD dans notre exemple. 
MOD entre et 63 = affichage INVERSE 



MOD entre 64 et 127 = affichage FLASH 
MOD entre 128 et 191 = affichage NORMAL 
MOD entre 192 et 255 = affichage MINUSCULE 

Dans le cas d J une ecriture texte en page 2, il suffira 
de remplacer 1024 ($400) par la valeur $2048 
($800). Dans ce cas le programme AppleSoft devra 
etre reloge, en modifiant les adresses 103 et 104 
($67 et $68). Le debut ne pourra pas se trouver 
avant I'adresse $OC00 r etant donne que la fin de la 
page 2 texte debute a I'adresse $0BFF. 

POKE 1024 + Adr -h 128 * Y - 984 * INT (Y/8J.MOD 



POKE POUR LE DOS 3.3 



Les valeurs donnees par la suite sont uniquement 
valables pour un DOS 3.3 loge dans I'espace 
memoire d'un system© de 64 Ko de RAM. Pour une 
configuration differente, il suffit de retrancher 
1 024 octets aux adresses indiquees pour chaque Ko 
en moins. 

Par defaut, le systeme d'exploitation fermine le 
boot dune disquette sur un fichier du type Basic 
(A). En modifiant simplement un octet 6 I'adresse 
40514 du DOS, on peut booter sur un fichier binaire 
ou EXEC. Normalement, cet octet a comme valeur 
06 pour un fichier Basic. 

Pour initialiser sous DOS 3.3 une disquette avec un 
fichier de boot different, tapez a partir du clavier le 



poke en consequence. Cette modification peut tres 
bien se realiser au niveau de lo disquette meme a 
I'aide d un utilitaire dans le genre DISKFIXER ou 
autre. Pour ce faire, il faudra modifier le byte a la 
position relative $42 (66), piste $00 secteur $0D de 
ladite disquette, 

POKE 40514,52 permet un boot du systeme sur 

un fichier BINAIRE. 
POKE 40514,20 permet un boot du systeme sur 

un fichier EXEC. 
POKE 43140,73 : POKE 43160,68 : POKE 43212,82 

vous ramene a un DOS standard, 

apres modification de certains 

pointeurs. 



wmmmmmmmmmmmmmmmt 



24 



GUY-HACHETTE 



IflllllllllllfllHIIIIIIIIHIIfllllllllNIIIIIIHI 



DRIVE ee SLOT 

POKE 43624,0 
POKE 43624,3 
POKE 43626, S 

TABLE OU DOS 



Selectionne le drive oyant la valeur 
D(D - 1 pourle lecteurl), 
PEEK (43624) Change de lecteur de 
disquettes. 

Selectionne le slot de I'Apple 
(S ~ 6 pour slot 6). 



POKE 44453 255 
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POKE 4314073 
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POKE 43 (tfl % 


Annuls la Fonction DELETE Au DOS 


POKE ifi 
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POKE 43212,96 


Annule la commande RENAME du DOS- 


POKE 43212,82 


Restaure lo fonction RFNAMF du DCK 


POKE 43144,96 
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POKE 4314474 


Restaurs So fond ion LOAD. 


POKE 43148.94 
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POKE 43)48.83 
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POKE 43152,96 


Annule lo fonction RUN. 


POKE 43152,*2 


Restoure Iq fonction RUN. 


POKE 43166,96 


Annule la fonction LOCK. 


POKE 43166,76 


Restoure lo fonction LOCK, 


POKE 4317(1,96 


Annule lo fonction UNLOCK. 


POKE 4.3170 ,85 


Restaur* la fonction UNLOCK, 


POKE 43218,94 


Annule la fonction CATALOG. 


POKE 43218,67 


Restaure la fonction CATALOG. 


POKE 43247,96 


Annule la fonction FP. 


POKE 43247,70 


Restaure la fonction FP, 


POKE 43249 96 


Annule fa fonction INT. 


POKE 43249,73 


Restaure la fonction INT. 


POKE 43257 9* 


Annule lo fonction BLOAD, 


POKE 43257.44 


Restore la fonction BLOAD 


POKE 43262 96 


Annule ta fonction BRUN. 


POKE 43262,64 


Restaure la fonction BRUN. 


POKE 43246,96 


Annule lo fonction VERIFY. 


POKE 43266 86 


Restaurs la fonction VERIFY. 



TABLE I0B 

La table IOB est utilisee par la routine RWTS pour 
I'acces direct a un secteur donne de la disquette. La 
table IOB se trouve par defaut a I'adresse 47080 
($B7E8) pour un DOS boote sur une configuration 
de 64 Ko, Ces parametres peuvent etre modifies 
par la suite pour des besoins specifiques, 
IOB = 47080 

POKE IOEHl,SLT * 16 modifie le numero du Slot 
actuel (modulo 16). 



POKE IOB + 2,Dve 
POKE IOB + 3,Vol 



POKE IOB+4, Piste 
POKE IOB+5,Sedeur 
POKE IOB+6,DCTLW 

POKE IOB + 7.DCTHG 

POKE IOB+8,BUFFLW 
POKE IOB+9.BUFFHG 
POKE IOB + ll,BYT 



POKEIOB + 12,Mode 



modifie le numero du drive 
actuel (Valeur de 1 a 2). 
modifie le numero du 
volume actuel. Pour lire 
n'importe quel volume de 
disquette, il faudra donner 
a Vol la valeur 
(Valeur deO 6 254). 
modifie le numero de la 
piste actuelle 
(Valeur de a 34). 
modifie le numero du sec- 
teur actuel 
(Valeur de a 15). 
modifie Tocfet de poids fai- 
ble de I'adresse de la table 
des caracteristiques du 
DOS (DCT). 

modifie Toctet de poids 
fort de I'adresse de la table 
des caracteristiques du 
DOS (OCT). 

modifie loctet de paids foi- 
ble du tampon utilise par le 
DOS. 

modifie I'octet de poids 
fort du tampon utilise par 
le DOS. 

Sert a selectionner le nom- 
bre d'octets a modifier sur 
un secteur, Prend comme 
valeur $00 pour modifier 
les 256 octets dun secteur. 
modifie le travail de la tete 
de lecture : 

Mode = positionne lo 
tete de lecture. 
Mode = 1 lecture. 
Mode = 2 ecriture. 
Mode = 4 formctage. 



QUELQUE5 TRUCS EN VRAC 



Meilleure lisibifite en mode 80 colonnes 

POKE - 16205,0 : POKE -16203,0 

impression des minuscules 

POKE 243,32 force hmprimante a Umpression de 
minuscules, Faire preceder !e PRINT par POKE 243,32. 
Apres Tinstruction PRINT a mettre en minuscules, topez 
NORMAL, I'adresse 243 ($F3) ou ORMASK sert a I'APPLE- 
SOFT pour forcer le mode FLASH . (suit* page 26} 
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Sortie sur enregistrement cassette 

POKE - 1 6352,0 



POKE 49107,234 ; POKE 40108,234 
POKE 49109,234 



POKE sur deux octets 

POKE adresse +I ( V / 256 : POKE adresse, V - 256 * PEEK 
(adresse +1) oil adresse +1 est I'octef de poids fort, 
odresse esf ["octet de poids foible, et V est lo voleur a 
modifier. 

POKE divers 

POKE 44033, P met la VTOC du disk ovant intfiali- 
sation sur la piste numero P 
(P = 13, met la VTOC sur la piste 
13, secteurfl). 

POKE 37656.X eftectue un saut de X lignes dans 
un programme. 

POKE 37658 r X duree d J attenie : 

- six 128augrnente la duree. 

- six 1 28 diminue la duree. 

Langoge integer 

Pour eviter lors d'un Boot a chaud de recharger a cha- 
que fois le langoge Integer dans la carte langoge ou la 
carte d'extension memoire, it faudra effectuer au 
prealable les trois POKE suivants : 



Acces a tine piste interdite 

SI vous voulez pour une raison ou une autre, interdire 
I'acces a certaines pistes de votre disquette, il suHira 
de foire les POKE suivants : 

POKE 44723, A * 4 : POKE 44725,B * 4 
ou les variables A et B represented les limifes 
extremes des pistes accessibles pour la sauve- 
garde de vos fichiers. 

Modifier [emplacement de la VTOC 

La VTOC se trouve normalement sur la piste $11 sec- 
teur $00, et le Directory sur la piste $11 secteurs $15 d 
S0 1 {DOS standard). Pour modifier cette disposition, il 
sera necessaire de taire les POKE suivants : 

POKE 44033,3 : POKE 44723 J 6 : POKE 44741,12 : 

POKE 44764 3: POKE 46012,3 
Dans notre exemple r la VTOC et le Directory seront 
places sur la piste $03, apres initialisation d une dis- 
quette. Cette derniere ne pourra plus etre lue r ni boo- 
tee par un DOS 3.3 standard. Les programmes de 
copie usuels comme FID ou COPYA ne fonctionnent 
plus. Les parametres pour un DOS classique sont res- 
pectivementl7, 12,68, 17 et 17, 



APPLE II ProDOS 
GUIDE DU PROCRAMMEUR APPLESOFT 



Par Marcel COTT1NI 



Vous ne tirerez pleinement profit de votre Apple que si vous 
connaissez parfaitement les multiples ressources de son 
nouveau systeme d'exploitation ; ProDOS, 

Apres avoir lu ('excellent ouvrage de Marcel COTTINI, vous trouverez en ProDOS Tun 
de vos meilleurs allies pour une programmation avancee. 



Extrnit de la table des matieres 



• Familiarisation du lecteur avec ProDOS. 

• Les vecteurs particuliers sous ProDOS. 

• Systeme DOS 3.3 ou ProDOS ? 

• Monitor, interpreter Applesoft et ProDOS. 

• Le boot d'une disquette ProDOS. 



• Occupation type d'une configuration Apple. 

• Commandes typiques du Basic.System. 

• La Basic System Global page. 

• etbiend'autressujets ! 

BULLETIN DE COMMANDE PACE 75. 
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Vient de paraitre 



Les Editeurs nous 
communiquent ; 



• IMAGES NUMERIQUES 
(Jean>Baptiste Touchard) 

D'abord cantonnees d certains secteurs 
de pointe, en raison de ^importance 
des colculs necessaires pour les mettre 
en ceuvre, les images numeriques 
envahissent aujourd'hui les ecrans des 
televiseurs, des cinemas..- et des 
micro-ordinateurs. 

Ce livre se veut tres pragmattque, 
voire terre a terre face 6 ce pheno- 
mena. IE a pour ambition de donner au 
lecteur les elements directement utili- 
sables. Le panorama presente dans ce 
livre (videotex, petit formulaire de 
geometric, les trors dimensions, la 
croisee des dimensions, les objets gra- 
phlques, leur saisie, puis ieur traite- 
ment) n'a certes pas la pretention 
d'etre exhaustif dans un domaine 
extremement vaste et mouvant. El 
tente cependant de faire ressortir le 
fait que les algorithmes fondamen- 
taux, utilises en Infographie, font rare- 
ment appel a des concepts tres elabo- 
res. Les exemples presented dans le 
livre, bien qu'etant ecrits dans des Ian- 
gages divers, s'inscrivent dans des 
syntaxes claires et facilement trans- 
posables. 

Un bagage mathimatique de bachelier 
scientifique permet de comprendre le 
plus grand nombre des concepts pre- 
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sentes. Bien que I'ouvrage presente 
I'image de synthese de maniere appro- 
fondie, il olfre cependant d liferents 
niveaux de lecture : 

• de nombreuses illustrations et 
legendes apportent r d'une part, 
une meilleure comprehension pour 
le debutant ; 

• d'outre part, de multiples ouvertu- 
res vers des systemes plus sophist]- 
ques, comme les palettes graph!- 
ques, sont proposees au lecteur 
plus passionne. 

CiDIC/NAJHAN, 610, boulevard JQU8DAN - 
750} 4 PARIS. {336 pages - 240 F} 

• INITIATION A 
L'ALGQRITHMIQUE ET AUX 
STRUCTURES DE DONNEES 
(J. Courtin et I. Kowarski) 
I Rfcgrammation structure* et struc- 
tures de donnees elementaires. 

Ce premier tame est consacre a la 
construction d'algorithmes fondamen- 
taux sur les fkhiers sequentrels et les 
vecteurs (structures a acces direct). II 
s'adresse aux etudiants de premier 
cycle (IUT, BTS, DEUG) et plus genera- 
lement a tous les lecteurs desirant 
s'initier a la construction d'algorithmes 
corrects, qui sont la base de toute 
bonne progrommation. 
Les algorithmes sont ecrits dans un Ian- 
gage proche du Pascal et leur traduction 
dans un langage clossique (Pascal, For- 
tran, Cobol, *..) est aisee. De tres nom- 
breux exemples et exercices permettent 
au lecteur de se familiariser avec la 
demarche proposee et de verifier que la 
methode a bien ete assimilee, 
Le deuxieme tome (parutton fm 1987) 
aborde I'efude des structures des donnees 
avancees que sont les listes chainees, les 
piles, les tables et les arbres, Les auteurs y 
mettent en evidence la notion de recursivite 
qui constitue une bonne initiation 6 I'utiliso- 
tion des langages de 1 "intelligence art if i- 
cietle (Lisp, Prolog). 

Coll "Dvnod tnhrmotique" 296 pages, bmhe, J 20 f 



• LA SECURITE DES RESEAUX 

(J.S, tamere, Y. leroux, J. Jowly) 

Methodes et techniques 

Faisant suite a un premier ouvrage de 
sensibilisation, la Securite informoti- 
que, le present titre fournil aux prati- 
ciens tous les outils methodologiques 
aujourd'hui disponibles pour I'analyse 
et la reduction des hsques infor- 
matiques. 

Dans cet esprit, les auteurs develop- 
pent les methodes MARIGN-AP (sites 
locaux et reseaux simples] et 
MARION-RSX (reseaux d'ordinateurs) 
avec 1'ensemble des elements quantt- 
tatifs : ratios, questionnaire doudt, 
bases de reference, etc., permettant 
une mise en oeuvre effective. Un 
exemple illustre la demarche pratique 
au travers de fiches methodologiques. 
Un chapitre important est consacre aux 
moyens specifiques de la securite des 
telecommunications ; chiffrement, 
authentication, signature,,, 
Cet ouvrage s'adresse a tous ceux qui 
ont conscience de Emergence d'une 
nouvelle fonction liee 6 la securite 
informatique, aussr bien les utilise- 
teurs et les professfonnels que les etu- 
diants de renseignement superieur. 

Collection "Durtod Informal ique", 
374 pages, troche, 290 F 

OUNOO. \7 t rue RemyDumoncel, B,P. 50, 
75661 PARIS CSDEX 14 
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WtWI iUH f dHM J ill iWlM Clement RENARD 

D'un Basic a un autre 



GWBASiC — APPLESOFT 



QUI ne connaTt pas le GWBASIC, langage employe sur !a plupart des micros consideres 
comme compatibles avec le modele IBM ? Vous ? pas possible ! Je vous propose, a 

\ 1 titre d'exercice — et simplement pour le plaisir — de transformer un programme 

ecrit en GWBASIC. en routine APPLESOFT. Nous supposons, au depart, que vous disposez 
d'un Apple recent, equipe d'une carte 80 colonnes et autorisant ('utilisation des caracteres 
souris, mais ce detail n'est important que pour le cadre... et encore ! II esttoujours possible 
d'afficher un cadre constitue par 204 asterisques. 



OBJET PU PROGRAMME 

C'est un peu simpler. On vous demande seule- 
ment de taper votre nom et votre prenom, Tou- 
tes les lettres de I'alphabet sont acceptees, ainst 
que Tespoce, I'apostrophe et le tiret. Si une 
erreur est commise, le caractere errone apparait 
en mode inverse et il taut renouveler la saisie. 
Ensuite, si vous avez commis I'erreur de taper 
votre nom en oubliant les majuscules, on vous 
eorrige gentiment,,. et c'est tout ! 

TRADUCTION 

Seules sont exptiquees les lignes posanf un problems. 

100 En Applesoft, on n'est pas forcement en 
80 colonnes, d'ou le libelle de cette ligne. 
CLS est remplace par HOME et BEEP par PRINT 
CHR$ (7) ou CALL - 198. La REMarque doit elre 
precedee par REM (en GWBASIC, on peut utiliser 
la simple apostrophe). 

105 Applesoft, au contraire de GWBASIC ne 
reconnaTt pas les a e T 6 V 1 et e... ce qui 
est dommage. 

110 LOCATE" 5,14 est remplace par VTAB 5 : 
HTAB 14, COLOR 0,7 par INVERSE et 
COLOR 7,0 par NORMAL, Nous ne reviendrons 
plus la-dessus. 

Quelques textes ont ete sensiblement modifies, 
mais c'est sans rapport avec la program m a tion . 

185 Le programme en GWBASIC comporte un 
280 bug. Celui-ci est semble-t-il elimine dans 



la routine Applesoft. Comparez les deux ver- 
sions (c'est du Basic, classique !) et essayez de 
comprendre ! 

220 APPLESOFT ne connaTt pas INKEY$, mais 
la ligne d'attente habituelle fait parfaite- 
ment notre affaire, 

235 C r est evidemment le trace du cadre qui 
d differencie le plus les deux machines... 
250 encore que ! nous disposons, sur le com- 
patible IBM, de caracteres semi- 
graphiques qui autorisent bien des acrobaties. 
Sur Apple, les caracteres souris sont insuffisants 
et on ne le deplorera jamais assez. On peut 
neanmoins proceder comme nous I'avons fait ou 
tracer un cadre classique, soit en utilisant 
Pespace en mode inverse, soit un caractere 
comme Tasterisque... On peut aussi passer par 
une petite routine LM, mais cela nous eloigne du 
Basic Iraditionnel ! 

Pour eviter le scrolling, il est en tout cas indis- 
pensable de poquer le contenu de la case 2039 
(HTAB 80, VTAB 24). Notez le POKE 33,78 de la 
ligne 250, indispensable pour empecher I'efface- 
ment du cadre, au moment de I'lNPUT. 

Les caracteres semi-graphlques 

Void les cinq caracteres permettant le trace 
(parfait) du cadre en GWBASIC : 

201 ^ 205 = 187 1 
200 *t 188 =« 
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CWBASIC 



APPLESOFT 



100 CLS : BEEP : GOSUB 235 'Trace du ca 
dre 

105 V$= "abode fgh ijk ]mnopqrstuvwxyz£eeu£& 

iduiec ABCDEFGH I JKLMNOPQRS TUVWXYZ- * " 
110 LOCATE 5 t 14: COLOR O, 7 : PRINT'' SAVEZ- 

VOUS OR THOGRAPHIER VOTRE NOM ET VOTR 

E PRENOM ? ": COLOR 7,0 
115 LOCATE W t 5 : C = : P= 0: BEEP 
120 INPUT" Indjquez-moi votre nom et votr 

e prenom ";N$ 
125 Nf$- " " : 'Norn corrigG (majuscules ) eve 

ntue J lament 
130 FOR 1=1 TO LEN ( N$ ) : M$= MID$ (NS, I 

, 1 ) : IF MS = " THEN C=I 

135 IF M$="-'' OR M$~ " 1 "THEN P=I 
140 FOR J = 1 TO LEN ( V$ ) ; IF MS = MIDS 

( V$ t J t 1 ) THEN 150 
145 NEXT : LOCATE JO t 45+I : COLOR 0,7 : 

PRINT MS : COLOR 7,0 ; GOTO //5 
150 IF (1-1 = C OR AND M$ > "Z" A 

NO MS < CHR$( 123) THEN M$ = CHR$ ( A SC ( M 

$)-32) 
155 N1$-N1$+M$ 
160 NEXT I 

165 LOCATE 12 , 5 : IF C THEN 175 

170 PRINT "J'avajs pourtant precise: nom 

ET pr&nomi": GOTO 115 
175 PRINT "Ainsi, vous vous nommez H ; LE 

FT$(N$ r C-1); " et votre prenom e 

St " ;MID$(N$ t C, LEN(N$)+7-C) 
t80 LOCATE 14,5 

185 IF LEFTS (N$ r 1 ) > "Z" OR P < C THEN P 
RINT "Une lettre capita ie ne saurait 
devaluer votre NOM. . . Ja preuve: ": L 
OCATE 15 r 15: PRINT "- "; LEFTS( N1 S , C 
-1) :GOT0 195 

190 PRINT "Votre NOM semble correctement 
orthographie, . . " 

195 LOCATE 17 , 5 

200 IF MIDS (N$,C+1,1) > "Z" OR P >C THEN 
PRINT "Votre prenom serart mieux orth 
agraphia ainsi ;": LOCATE 18,15: PRINT 
"- " ;RIGHTS(N1$, LFN{ N$ )+ 1 -C ) : GOTO 210 

205 PRINT "Votre PRENOM ne parait pas po 
ser de problems. , . " 

210 PRINT: PRINT: BEEP 

215 GOSUB 220: CLS ; END 

220 N$=INKEYS : IF LEN(N$)=0 THEN 220 
225 RETURN 

230 'trace d'un cadre utilisant les car a 

cteres graphiaues 
235 PRINT CHR$(201 ); ; FOR I -= 2 TO 73 : 

PRINT CHRS (205);: NEXT : PRINT CHRS 

(187) 

240 FOR I - 2 TO 23 : LOCATE 1,1: PRINT 
CHRS(186): LOCATE 1,80: PRINT CHR$( 1 
86): NEXT 

245 LOCATE 24,1: PRINT CHRS (200); : FOR I 
- 2 TO 79 : PRINT CHR$ (205);: NEXT 
; PRINT CHRS( 188); 

250 RETURN 



100 D* ■ CHR* (4)| PRINT DVPR£3"; PRINT 

: HOME : PRINT CHR* <7>: GOSUB 235: R 

EM Trace du cadre 
105 Y* = "abcdefoh i ik ImnopqrstuuwxyzaeeOcA 

BCDEFGHI JKLMNQPQRSTUWXYZ--' " 
J10 UTAB 5: HTAB 14 r INVERSE : PRINT u SAV 

EZ-VOUS 0RTH0GRAPH1ER VOTRE NOM ET VOT 

RE PRENOM ? " : NORMAL 
115 VTAB 10: HTAB 5:C = 0:P = 0: CALL - 1 

98 

120 INPUT "Nom et votre prenom swp : " :N* 
125 Nl* = M "; REM Nom corn 9* (ma.iuscul tft) 
^ven t ue 1 1 emen t 

!30 FOR I = 1 TO LEN <N*3 :M* - MID* <N*. 

Ui>i IF H$ = " M THEN C = 1 
135 IF M* = OR M* = THEN P ■ I 

140 FOR J = 1 TO LEN <V*) : IF M* = MID* 

(V*« J.l) THEN 150 
145 NEXT : PRINT : HTAB 29+1: VTAB 10: I 

NVERSE : PRINT M* : NORMAL : GOTO 115 
150 IF (I - 1 = C OR I - 1 = P) AND M* > w 

2" WD M* < CHR* CI25) THEN MS = CHR 

% < ASC <rtt) - 32) 
155 Nl$ = N3S + m 
16Q NEXT 1 

165 ^/TAB 12: HTAB 5: IF C THEN 175 

170 PRINT Vayais pourtant pr£cis£t nom f 

t prenom! B : GOTO 115 
175 PRINT "Nom: " ; LEFT* CN* t C - 1 J ; H , pr^ 

nom:"; MID* <N*,C, LEN (N$> + 1 - C) 
ISO UTAB 14: HTAB 5 

185 R* = LEFT* CMtf.C - 1): IF R* < > L 
EFT* (N* f C - 1) THEN PRINT "Une lettr 
e capitale ne saurart devaluer un NOM. 
.. la preuue:": ^TAB 15: HTAB 15: PRIN 
T u - " rR$: GOTO 195 

190 PRINT "Uotre NOM senible correctement 
rthograph i i . . . H 

195 VTAb"17: HTAB 5 

200 R* = RIGHT* CN1*. LEN (N$) ♦ 1 - C) i 
IF R* < > RIGHT* (N* , LEN <N*> + 1 - 
C> THEN PRINT "Votr* pr^nocn serai t mi 
eux orthographie ainsi:"! VTAB 18: HTA 
B 15; PRINT U -":R*: GOTO 210 
205 PRINT "Votre PRENOM ne parait pas pose 

r de probl *me . . r " 
21 PRINT : PRINT CHR* (7) 
215 GOSUB 220: TEXT : HOME : END 
220 POKE 49168,0: WAIT 49152,128: POKE 491 

66.0 
225 RETURN 

230 REM Trac£ d'un cadre ut M leant les car 

acteres souris 
235 INVERSE : PRINT CHR* (27);: FOR I = 1 

TO 80: PRINT *L B : : NEXT 
240 FOR I = 2 TO 23: VTAB I: POKE 1403,0: 

PRINT POKE 1403.79: PRINT "Z*;: 

NEXT 

245 POKE 1403.0: VTAB 24: FOR I = 1 TO 79; 

PRINT "S" : : NEXT 
250 NORMAL : VTAB 1: PRINT CNR* (24); PQK 

E 2039,83; PGK£ 33, 7B: RETURN 
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• CLEFS POUR C 
(Franfois Piette) 

Au moment ou je redige ces lignes, les 
candidats a f'apprentissage du langa* 
ge C sur Apple IIGS restent sur feur 
faim. Aucurs ouvrage — 6 mo connais- 
sonce du moins — n r a traite la question, 
Rials on connait Tune des grondes quafi- 
tes du C ; son excellente portability 
Les amateurs de C (ils se revelent de 
pfus en plus nombreux) tireront done pro- 
fit de ce nouveau volet de la collection 
LANG AGES oux Editions du P.S.I. 

En fail CLEFS POUR C est un manuel de 
reference capable de fournir de bonnes 
informations a tout programmer, Ses 
exemples (nombreux) ont ete ecrits 
en C standard. Ils sont en principe desti- 
nes aux utilisateurs de PC et compatibles, 
mais aussi a ceux de ('Atari ST et de 
f'Amstrad PC, Notons au passage que les 
programmers sur Atari ST ne sont pas 
aussi demunis que les applemaniaques 
armesd'un GS tout neuf. 
Mais revenons aux CLEFS POUR € . 
L'auteur ne se contente pas r dans les 290 
pages de son bouquin, d une banale enu- 
meration d instructions que d'outres ont 
dejd explicitees. II etudie les deux ver- 
sions les plus repandues du C : le 




CUTS POUR C 




LATTICE C (c J esf, dans ses grandes 
lignes, celui du GS) et le Digital 
Research C, principal outil de program- 
motion sous GEM, sur Atari ST. A nofer 
que les utilisateurs de Microsoft C peu 
vent aussi se reporter au chapitre consa- 
cre au Lattice C I ce sont des produits 
idenfiques jusqua la version 3.0, 

EDITIONS DUPSl. 8P 86 77402 LAGNY-S MAP.NE - 
CEDEX (300pages environ -220F 17C), 



• C ET SES FICHIERS 

(I Boisgontier ei J. -P. Lagrange) 

Cet ouvrage sodresse aux utilisateurs 
deja familiarises avec le langage € , 
mais les auteurs ont tout de meme pris lo 
peine de revenir sur les principles 
notions et fonctions du C ■ Toute la pre- 
miere partie du livre est consacree a ce 
rappel. C'est concis, clair et precis. 
Machines concemees : PC et compati- 
bles, Atari, Amiga. Macintosh, etc La 
deuxieme partie, plus interessante a mes 
yeux parce que traitant un sujet mains 
connu, nous aide a decouvrir la gestion 
de flchiers en C ■ ■ ou a approfondir nos 
connaissonces sur la question, Apres 
Tavoir lue, vous saurez (presque) tout sur 
f'ouverture, [a fermeture, I ecrilure et fa 
lecture des fichiers 6 acces direct et a 
acces sequential. 

Les auteurs auraient pu en rester la, mais 
ils n'ont pas voulu nous quitter sans abor- 
der des sujets aussi interessants que : les 
methodes de tri, 1'allocation dynamique, 
les bases dedonnees, etc, 

BDmONSDUPSl - {170 pages. 170 F) 



• ASTRONOMIE 
ETORDINATEUR 
(Guy Serane) 

Si vous vous interessez a l astronomie, 
gogeons que le livre de Guy Serane ne 
vous laissera pas indifferent. Son objet 
est le cakul des positions astronomiques 



par NESTOR 



par des methodes simples, atcompa- 
gnees d'exemples numeriques... une 
simplicity qui ne nuit en rien d la 
precision. 

L'auteur troite des problemes fondamen- 
taux de !a mecanique celeste : 

* Positions des etoiles et des planetes a 
n importe quelle date : 

* Positions et trajectoires des cometes 
etdes satellites artificiels. 

* Prevision et calculs de phenomenes 
astronomiques divers (eclipses, occul- 
tations, elongations.,,). 

* Navigation : point astronomique r 
meridienne, 

* Calculs de trajectoires de vaisseaux 
spatiaux. 

L'originalite de I'ouvrage reside dans !e 
fait que tous fes sujets abordes au cours 
des differents chapitres font I'objet 
d'applications numeriques et de pro- 
grammes ecrits en BASIC standard, mais 
peuvent etre facilement adaptes d tout 
micro-ordinateur, Cest dire que tout lee- 
teur ayant a sa disposition un micro- 
ordinateur peut utiliser ces programmes, 
sans avoir a connaitre les demonstrations 
et developpements, d aspect parfois com- 
plexe, fournis dans le corps du livre. 

DUNOD, U, rue ttemyDumonat. 8,P 50 75661 PAfttS 
CEDEX I '4 (264 poges- }6QF) 
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ASTRONOMIE 



initiation 
aux calculs 
deposition 
et 
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UTILITAIRE 



Maurice CHAVELLI 



STARTUP 



Ce programme presente un double interet : 
utilitoire et didactique* 

1. Aspect utf litaire : 

Pour fa realisation de ce STARTUP, je suis parti 
avec les objectifs suivants : 

• Occupation d'un seul bloc sur la disquette. 

Rapidite d'execution (rien n'esi plus penible 
que ces "HELLO" qui n'en finissent plus de 
charger le catalogue). 

Lecture des catalogues secondaires (type DIR). 
Possibility de lancer un programme de type 
BAS, BIN, REL, SYS, TXT (en tant que fichier 
EXEC). 

Le plus difficile a ete de tout faire entrer dans les 
512 octets impartis (ne vous attendez done pas 6 
trouver des fioritures !), pour le reste il n'y a pas 
eu de gros problemes, Le programme selec- 
tionne est lance avec le dash pour un fichier 
type TXT qui n'est pas un fichier EXEC, vous 
aurez droit a une avalanche de SYNTAX ERROR. 



2. Aspect didactique : 

L'analyse du programme vous montrera les deux 
types d'appel de ProDOS 6 portir de I'assem- 
bleur. Vous serez amene egalement a compren- 
dre ('organisation des catalogues sur les disquet- 
tes ProDOS. Vous pouvez aussi utiliser le pro- 
gramme sans vous poser de question sur son 
fonctionnement.,. 



Les commandes 



Les fleches droite et gauche permettent de 
selectionner le fichier. 

La touche RETURN essaie de le lancer, dans le 
cas d'un fichier DIR le PREFIX est mis a jour 
(ne pas depasser 40 caracteres pour eviter 
les surprises !) et le nouveau catalogue est 
affiche. 

La touche ESCAPE permet de relire le catalo- 
gue principal et la touche ESC vous envoie 
directement dans le BASIC. 
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* 




* STARTUP p^r 


* 




3 






* pour Tr 


e m p 1 in -M i c r * * 




4 


* 








5 

6 


PTR 






P □ i nte u r s 




7 


ADD 










3 


SCH 




SIS ; 


Sauvegarde CH 




9 


COMPT 




*1B ; 


Compteur de fichiers 




10 


WNDTOP 




*22 ; 


Haut de la fenetre TEXTE 




1 1 


CH 




*24 ; 


Pointeur hor i zontal du curseur 




12 


CM 




*25 ; 


Pointeur vertical du curseur 




13 


BA SI- 




$28 ; 


Pointeur adresse ligne courante 




14 


BASH 




%2? 






15 


IN 




%2ZZ ; 


Pointeur du buffer d' en tree 


.* 


16 


DOSCMD 




*BES3 ; 


Entree page global e BASIC-SYS 


■XL 
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1 ~7 
1 / 


h>4 1 T 

ML I 






j 


tntree page g i ooa i e oe rrouua 


1 u 


CCTTVT 




*r Hot 


J 


equivalent au i la i a u dm oil 


1 o 

i y 


TABV 




<+ n e: n 


\ 


■ > h i V l j™. ps PS ^"f. t 1 ^~ 1 1 F -1 " 1 1 i™k p ■ 

ros i t i onn6 curseur i i gne m 




BASCALC 




iCDPI 

SroL 1 


\ 


Ua 1 CU 1 8 dnOL e t enon 1 1 yntr 11 


jl 1 


UTAB 






\ 


rOS 1 Tionne curseur i i gne v 




HOME 




-t> r u □ o 


I 


equivalent uu nuiici uu dmj x ^ 




CROUT 




Udt 


' 


trivO 1 6 un re lour triar 1 




COUT 




*rutu 


j 


envoi e caractere coa? o^ns m 


-j 


BELL 








Un petit Dip! 


£<5 














£./ 






llDr; 

UKLj 
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DEBUT 








HiT+icnaQe vert l hr i riR uv t 


do 






LDA 


£8 




Initial isations 


*a 1 
j 1 






STA 


ADD 












STA 


NBR+1 
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STA 


SCH 












LDA 


£2 


■ 


Le catalogue principal 


oD 






STA 


NBR 


i 


commence au Block 2 


do 














Or 




Ch argemen t 


du cata I ogue 


en $760 . Le catalogue principal 


oo 




occupy 


1 £5 


4 bl ocs de 


2 


a 5. Les catal ogues secondaires 


■_- 7 




occupent 1 


ou plusi eurs 


blocs qui se situent n^importe 






ou., rnai s qui sont chaines. On trouve d'abord, sur 2 oc- 






tets, 


1 e po 


i nteur arr 


i e r e ? et sur les 2 octets su i van t s 






1 e poi nteur 


auan t . 
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CHARGE 


LDA 


£$76 


S 


Buffer en $7600 


d ^ 






STA 


BUF+1 






*+o 


CHARG 


JSR 


MLI 


* 

p 


Appe 1 standard du MLI 


*+ r 






HEX 


89 


■ 

i 


Code de la commande READ BLOCK 
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DA 


PA RAM 


9 


Pointeur des parame tres 


49 






BEQ 


CHI 






50 






JMP 


BELL 


I 


Imposs i bl e a lire! 


5 1 


CHI 


LDA 


BUF+1 


■ 


Lecture r euss i e 








STA 


ADD+1 






Da 






INC 


BUF+1 


* 

5 


1 bloc occupe 2 pages m^moire 








INC 


BUF+1 






5=i 

w w 






LDY 


£2 






56 






LDA 


< ADD) ,Y 


■ 

? 


Recupere le pointeur avant 
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STA 


NBR 


1 


et sauve en NBR et NBR+1 


53 






I NY 
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LDA 


(ADD) ,Y 






60 






STA 


NBR+1 






A 1 






BNE 


CHARG 


■ 
P 


S' i 1 n'est pas nul on continue 


62 






LDA 


NBR 






63 






BNE 


CHARG 






64 














65 




Preparat i on 


commande 


PREFIX . C est une deux i erne man i ere 


66 




d'appeler ProDOS a partir de 1 ' Assembl eur : elle exige 


6? 




la presence 


du BASIC. 


SYSTEM . 


68 














69 






LDY 


€5 


J 


Inscrit PREFIX dans buffer IN 
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70 


PREF 


LDA 


PREFIX , 


Y 








71 




STA 


IN,Y 










72 




DEY 












73 




BPL 


PREF 










74 
















75 


* Af i I 


chage e t commande 


PREFIX 




76 
















77 




JSR 


HOME 




1 


E-f-face la enetre d'^cran 




78 




JSR 


SETTXT 




i 


TEXT 




79 




LDA 


£0 






Positionne curseur sur ligne 




80 




JSR 


TABM 










81 




LDA 


£4 




■ 


Fointe PTR sur le nom du Mol ume 




82 




STA 


PTR 










83 




LDA 


£*76 










84 




STA 


PTR+1 










85 




LDA 


SCH 




■ 


Ajuste CH pour ecriture 




86 




STA 


CH 




* 


correcte du PREFIX 




S7 




LDA 


£"/ 




• 


Commence par af f i c her un / 




88 




JSR 


COUT 










89 




JSR 


COM 






Af+iehe PREFIX et -> IN 




90 




JSR 


DOSCMD 






Execute commande dans buffer IN 




j— . J 




LDA 


£2 




J 


Dimtnue la fenetre 




92 




STA 


UINDTQP 










93 




LDA 


£0 






Initial i se camp teur de -fichiers 




94 




STA 


COMPT 


























96 


* Af-fichage des nom$ 


de 


f i 


cfriers 




97 
















98 


TRAIT 


JSR 


HOME 










99 




LDX 


£22 






C est parti pour 1 es 22 1 i gnes 




100 


Tl 


JSR 


PLUS 




■ 


Avance d'un fichier 




101 




JSR 


ECRIT 






A-f f i che 1 e nom du + i ch i er 




102 




LDA 






j 


Bas de 1 a page? 




103 




CMP 


£23 










164 




BEQ 


T7 






Gu i , on arre te 




105 




JSR 


CROUT 




- 


Non, passe a la 1 i gne suivante 




166 


T7 


LDA 


$7625 




; 


Recupere n ombre total -fichiers 




107 




CMP 


COMPT 




! 


Le compare avec COMPT 




1 3 




BEQ 


T2 






S" i 1 est egal on arrete 




109 




DEX 








S i non on de crimen te X 




110 




BNE 


Tl 






S ^ i 1 n'est pas nul on reme t ca 




1 1 1 


T2 


LDA 


£1 






Reme t COMPT a 1 




112 




STA 


COMPT 










i 1 3 




LDA 


£*2B 






Remet PTR sur $7609 




114 




STA 


PTR 










115 




LDA 


£*76 










1 16 




STA 


PTR+ 1 










117 




LDA 


£2 




• 


Remet le curseur sur la ligne 2 




113 


T3 


JSR 


TABU 








119 














1 


129 


# Tra 


temen t 


du cl ay i en 






s 


121 














122 


T4 


LDY 


£39 




■ 


A-f -f iche inverse fichier courant 
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33 



123 


T5 


LDA 


CBASL) ,Y 






124 




AND 


£*3F 




Masque pour 1'inversion 


125 




STA 


CBASL) ? Y 






126 




DEY 








127 




BPL 


T5 






1 28 


T6 


LDA 


*C008 


■ 


Attend une frapp e de touche 


12? 




BPL 


T6 






130 




STA 


*ceie 






131 




CMP 


£*A0 


; 


Est-ce la barre d' ©space? 


1 32 




BNE 


T8 


\ 


Non 


133 




JMP 


DEBUT 


\ 


Our, on recommence tout a zere 


1 34 


T8 


CMP 


£*9B 


i 


Est-ce la touche ESC? 


135 




BNE 


Tl 1 


; 


Non 


1 36 




JSR 


SETTXT 


; 


Ou i , fenetre normal e 


1 37 




JMP 


HOME 


; 


on efface et on abandonne tout 


138 


Tl 1 


cmp 


£*?5 


; 


Est-ce la fleche a droite? 


1 3? 




BEQ 


BAS 


; 


Ou i 


140 




CMP 


£$88 


; 


Est-ce la f 1 eche a gauche? 


141 




BEQ 


HALT 


; 


Ou i 


1 42 




CMP 


£*8D 


; 


Est-ce le touche RETURN? 


143 




BNE 


T5 


; 


Non, al ors c ' est une erreur ! 


144 




I NY 








145 




LDA 


(PTR) ,Y 


; 


Recupere le type de fichier 


1 46 




AND 








1 47 




CMP 


£*D0 


\ 


Type DIR? 


1 48 




BEQ 


SOUS 


\ 


Ou i , lire nouveau catalogue 


14? 




JMP 


HOOK 


\ 


K>ec teur extension euentuelle 


1 50 


T10 


JSR 


SETTXT 


; 


TEXT 


151 




JSR 


HOME 


; 


HOME 


152 




LDA 


£*A8 


; 


Code espace dans A 


153 




LDY 


£4 


; 


4 ©spaces dans 1 e buffer 


154 


T? 


STA 


IN.Y 


; 


c'est pour utiliser le 


155 




DEY 




i 


meme sous-programme COM ! 


156 




BPL 


T9 






157 




LDA 


£"- 


; 


I nscr i t 1 e dash dans buffer 


158 




STA 


IN+5 






15? 




JSR 


COM 


; 


A f f i c h e n om fichier - > IN 


160 




JMP 


DOSCtiD 


5 


C y est parti pour ce fichier! 


161 










162 


* Lecture sous-catal ooue 






163 












164 


SOUS 


LDY 


£17 


i 


Recupere numero Key-Bl ock 


165 




LDA 


<PTR) ,Y 


i 


du sous-catalogue et le 


166 




STA 


NBR 




sauve dans PTR 


1 67 




I NY 








168 




LDA 


CPTR> ,Y 






16? 




STA 


NBR-t-1 






170 




JMP 


CHARGE 


i 


C est parti nouveau eatal ogue ! 


171 










172 


* Trai 


t ement 


vers 1 e bas 






173 












174 


BAS 


JSR 


NORM 




Af f i chage normal 


175 




LDA 


COMPT 


* 


Recupere n umer o fichier 



34 



GUY-HACHETTE 



176 




CMP 


$7625 






Le compare total -fichiers 


1 // 




n i — i — i 

BEQ 


T4 






Si ega 1 i te ne va pas plus loin 


A r O 




U O rv. 


PI I 1 






t _ _ _ X mo rv f DTD e f pflMPT 






1 IN w 


pi I 






I r, |- ri A, rj\ d r*i t - ci ri J 


1 S3 






ru 








1 O 1 




CMP 








OOP t 1 QL p aQP ■ 






BNE 








1 1 1 j d I U 1 3 LUU 1 V ct U 1 trii 


1 ft '"3 




DEC 


PI J 






Oiii alrtr^c ("tri Hi r r A n> on t d PL J 
UU 1 f d 1 Ul 9 Ufil LJ t 1 (_ I cr I licr I I L tr v 






JSR 


rem it 






un inon te i e s t i tn i er5 a un tr*n 


185 




■JSR 


ECRIT 






On ecrit nom du petit nouveau 


184 




JMP 


T4 








187 














i 89 


* Tr a i temen t 


vers 1 e hau t 








1 8? 














1 98 


HAUT 


JSR 


NORM 






M i i eh age normal 


191 




DEC 


COMPT 






Un fichier p'l us "bas" 


192 




BNE 


HI 






Si on est pas a 8 on continue 


193 




INC 


COMPT 






Sin on i 1 n'y a plus r i en a voir 


194 




BEQ 


HI 








195 




JMP 


T4 








196 


HI 


JSR 


MOINS 


■ 

t 


Decrement© FTR et COMPT 


197 




DEC 


CU 


p 


Decremente CKf 


198 




LDA 


CU 








199 




CMP 


£1 






Ligne 1? 


209 




BEQ 


H2 






□u i , a 1 or s il faut reagir 


261 




JMP 


T3 






Non , alors e'est parfait 


282 


H2 


LDA 


€24 






Ic i pet i t SCROLL inverse 


203 




STA 


CU 






Je vous laisse le d^couvrir 


284 


H3 


DEC 


CU 








265 




DEC 


cu 








206 




BE Q 


H5 


■ 

1 


La sor tie est i c i ! 


20 7 




JSR 


VTAB 








208 




LDA 


BASL 








209 




STA 


ADD 








210 




LDA 


BASH 








211 




STA 


ADD+1 








212 




INC 


CU 








213 




■JSR 


UTAB 








214 




LDY 


£39 








215 


H4 


LDA 


< ADD) ,Y 








216 




STA 


< BASL) ,Y 








217 




DEY 










218 




BPL 


H4 








219 




8MI 


H3 








229 


H5 


I NY 










221 




STY 


CH 


J 


Curseur sur premiere colonne 


222 




LDA 


£2 


■ 

* 


Curseur sur la ligne 2 


223 




JSR 


TABM 








224 




JSR 


ECRIT 


■ 

J 


Ecrit le nom du -fishier 


225 




JMP 


T4 








226 














227 


* Param^ tres 


pour cha.rgement de Bloc 


228 












(suite page 36) 
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£.£.7 


DA DAM 


HEX 


03 




3 parametres 






HEX 


60 




Slot 6 et Dr i ye 1 




DUr 


DA 


H7600 




Buffer de reception 


£.■34- 


MRP 
IN OK 


DA 







Nume>o du Bl oc 
















* rt o u ' 


ne auance d y un 


t i tre 


9^S 

£OJ 












t ' _' 


PI 1 1°, 


INC 


COMPT 


B 


1 ncr^men te COMPT 

A H V, 1 W 1 P t C ! 1 117 W Wl 1 1 1 


237 


P0 


CLC 




I 


T TCU r 1 n T J ? j \m i 1 A <^ U t T 1 till VI 


238 




i da 


PTP 




nrrnno O nr fete Ha n c la 

U 1 L. [ _ U \J f O 7 LH_ L tr L = '_l c*. 1 r If 


239 




ADC 


£39 




Vol ume D i rectory 


240 




STA 


PTR 






241 




BCC 


PI 






242 




INC 


PTR+1 






243 


PI 


CMP 


£*FF 




At tent i on changement de Bl oc ! 


244 




BNE 


P2 


\ 


Pas de changemen t 


245 




LDA 


€4 




Chan gemen t de Bloc ajuste PTR 


246 




STA 


PTR 






t H f 




INC 


PTR+1 






£4o 


P2 


LDY 


£8 


i 


Fichier e-f + ac^? 


9 A O 




LDA 


CPTR) ,Y 






9^6 




BEQ 


P0 


S 


Qui j a1 ors on passe au suivant 


1 
1 




RTS 




i 

t 


Non , alors tout ya bien.** 


£DZ 












Z. ■_) Oj 


* Routine recul e d'un 


t i tre 


9^d 












9SS 


MOINS 


SEC 




5 


Effectue PTR-39 


9S A 
too 




LDA 


PTR 






□ i 




SBC 


€39 






too 




STA 


PTR 










BCS 


Ml 






9>ifi 




DEC 


PTR+1 






9 ji 1 


Ml 


CMP 


£*DD 




Changement de Bl oc? 






BNE 


M2 




Non 


9 Z 9 




LDA 


£*D8 




□u i , alors on ajuste PTR 


9xi& 




STA 


PTR 






too 


M2 


LDY 


£0 


5 


Fichier efface? 


cOO 




LDA 


CPTR) ,Y 






t O f 




BEQ 


MOINS 


■ 

i 


Ou i , alors on passe au suiuant 


too 




RTS 




i 


Non, alors tout va bien.,. 


9 4° 

t O T 












97fl 

t r v 


* Rou tine d'^criture 


riom de 


■fichier 


271 

t r l 












t f t 


ECRIT 


LDY 


£0 


i 


Recupere longueur nom fichier 


97 J 3 




LDA 


(PTR) ,Y 






274 




AND 


£*F 






97R 




STA 


EC2+1 




et la sauve dans EC2+1 


276 


EC1 


I NY 






Affiche le nom a 1 '^cran 


277 




LDA 


CPTR? ,Y 






278 




ORA 


£*86 


a 
> 


Bit 7 k 1 pour af f i chage 


279 




JSR 


COUT 






289 


EC2 


CPY 


£0 






281 




BNE 


EC1 
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282 


LDY 


CH 


■ 


Recupere CH pour PREFIX 


283 


RTS 










284 












285 


* Routine a-f+ichage normal 






286 












287 


NORM LDY 


£3? 








288 


Nl LDA 


< BASL) ,Y 








28? 


ORA 


£*80 


■ 


Masque pour af -f i chage normal 


2?e 


STA 


< BASL > ,Y 








291 


DEY 










292 


BPL 


Nl 








293 


RTS 










294 












295 


* Rou tine pour 


c omrri ande 








296 












297 


COM JSR 


ECRIT 




Ecr i t T e nom 


298 


STY 


3CH 


; 


Sauvqarde CH pour le PREFIX 


299 


LDY 


£0 


■ 


I nscr i t 


1 e nam dans buf -f er IN 




CI LDA 


< BASL) ,Y 








301 


STA 


IN+4,Y 








38 2 


I NY 








303 


CPY 


SCH 


■ 


Jusqu ' a 


SCH contient longueur 


304 


BNE 


CI 






305 


LDA 


£*8D 


! 


I nscr i t 


un ret our chariot 


306 


STA 


IN+6 ,Y 








307 


RTS 
















308 










5/ vous no posstidex pas 


369 
310 


* Textes 








d'Ass&mbievr, passez a la page 








suivante pour saisir fas cod** du 










programme STARTUP de 
Maurice CHAVELU. 


31 1 


PREFIX ASC 


"PREFIX" 














312 












31 3 


* Vecteur pour 


mod i i i c at i on 


euentuelle, par exemple trai- 


314 


* temen t comp let pour 1 es 


■f i ch i er s : 


RENAME , DELETE. . . ma i s 


315 


* 1 e programme 


deborder a 


du 


bl oc . 




316 












317 


HOOK JMP 


T10 









Cette disquette TREMPUN MICRO permet une verification 
facile des programmes (Basic et LM) inseres dans la revue* 
Bon nombre de nos lecteurs I'utilisent d6ja et s'en felicitent. 
Cest b leur intention que nous publions le petit rectificatif ci-aprks, modification qui auto- 
rise la verification des fichiers binaires sur 24 octets par ligne (au lieu de 16). 

Concerne BIN. CHECK. PRO et BIN.CHECK.DOS 

515 NK = PEEK (ENTREE + 21): VTAB 12: PRINT "Nombre de colonnes >"NK;: HTAB 26: INPUT "";X$: IF X$ > ™ 
THEN X = VAL (X$): ON X <> 1 6 AND X <> 24 AND X -c y 32 GOTO 51 5: POKE ENTREE + 21 ,X 

517 IFSLOT = 3 OR NOT SLOT THEN RETURN 

2022 HOME ■ 



TREMPUN MICRO 
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/TMF/STAR/C ,A*7e0fl , L*0 1 FC * 



STARTUP (1ES CODES) 



BSAVE NOM,A$7000,L$01FC 




7086: 


AD 


BB 


ce 


A? 


86 


85 


83 


8D 


7F 


71 


35 


18 


A9 


82 


8D 


7E 


71 


A9 


76 


80 


7D 


71 


26 


80 


4B59 


7618: 


BF 


88 


7A 


71 


F8 


63 


4C 


3A 


FF 


AD 


7D 


71 


85 


09 


EE 


70 


71 


EE 


7D 


71 


AB 


62 


Bl 


08 


AFDE 


7639: 


8D 


7E 


71 


C8 


Bl 


88 


8Q 


7F 


71 


D6 


DB 


AD 


7E 


71 


D0 


D6 


A0 


■05 


B9 


F3 


71 


99 


08 


02 


FBC4 


7648: 


88 


18 


F7 


20 


58 


FC 


29 


39 


FB 


A9 


66 


28 


5B 


FB 


A9 


84 


35 


66 


A9 


76 


35 


07 


A5 


13 


E816 


7660: 


85 


24 


A9 


AF 


26 


ED 


FD 


26 


DC 


71 


26 


63 


BE 


A9 


Q2 


85 


22 


A9 


00 


95 


IB 


20 


58 


FC 


2C68 


7078: 


A2 


16 


20 


89 


71 


20 


BS 


71 


A5 


25 


C9 


17 


F8 


S3 


28 


8E 


FD 


AD 


25 


76 


C5 


IB 


F8 


03 


1675 


7998: 


CA 


D9 


E7 


A9 


81 


85 


IB 


A9 


2B 


85 


u 


A9 


76 


35 


87 


A9 


82 


20 


5B 


FB 


A0 


27 


Bl 


28 


9D96 


78A8: 


29 


3F 


n 


28 


88 


16 


F7 


AD 


ee 


ce 


Id 


FB 


8D 


10 


C0 


C9 


A8 


D0 


03 


4C 


ae 


79 


C9 


9B 


3AE1 


70C8: 


00 


86 


2e 


3? 


FB 


4C 


53 


FC 


C9 


95 


F0 


3F 


C9 


38 


FB 


5B 


C9 


3D 


D8 


D2 


C8 


Bl 


86 


29 


C593 


78 D8: 


F9 


C9 


D9 


FB 


IE 


4C 


F9 


71 


26 


39 


FB 


29 


58 


FC 


A g 


A0 


A0 


04 


99 


80 


d2 


88 


16 


FA 


982F 


78F8: 


A9 


AD 


3D 


95 


82 


26 


DC 


71 


4C 


83 


BE 


A0 


11 


Bl 


86 


8D 


7E 


71 


C8 


81 


06 


8D 


7F 


71 


BA44 


7188: 


4C 


11 


79 


26 


D0 


71 


A5 


IB 


CD 


25 


76 


F0 


8F 


2* 


80 


71 


E6 


25 


A5 


25 


C9 


18 


08 


ei 


73ED 


7128: 


C6 


25 


23 


8E 


FD 


20 


B8 


71 


4C 


A4 


70 


28 


D8 


71 


C6 


IB 


m 


97 


E6 


IB 


FB 


03 


4C 


A4 


463C 


7138: 


70 


28 


9E 


71 


C6 


25 


AS 


25 


C9 


01 


FB 


03 


4C 


Al 


70 


A? 


18 


85 


25 


C6 


25 


C6 


25 


Fl 


D89F 


7158: 


IB 


28 


22 


FC 


A5 


28 


85 


ea 


A5 


29 


85 


89 


E6 


2=j 


20 


22 


FC 


A0 


27 


Bl 


93 


91 


28 


88 


9C19 


7168: 


18 


F9 


38 


OF 


ca 


84 


24 


A9 


82 


28 


5B 


FB 


20 


B8 


71 


4C 


A4 


78 


83 


69 


9 6 


76 


80 


00 


632B 


7186: 


E6 


IB 


18 


A5 


96 


69 


27 


85 


66 


98 


82 


E6 


07 


C? 


FF 


D0 


06 


A 9 


04 


85 


06 


E6 


67 


A8 


6DC1 


7198: 




81 


66 


F8 


E5 


69 


38 


A 5 


86 


E9 


27 


85 


66 


B8 


92 


C6 


97 


C9 


DD 


D9 


94 


A9 


D8 


85 


5369 


71 88: 


06 


A8 


68 


81 


86 


F6 


E7 


60 


A8 


90 


Bl 


86 


29 


0F 


3D 


CA 


71 


C8 


Bl 


06 


09 


86 


20 


ED 


8760 


71C8: 


FD 


ce 


98 


D@ 


F4 


A4 


24 


60 


AB 


27 


61 


28 


89 


B0 


91 


28 


88 


id 


F7 


69 


20 


BB 


71 


84 


C547 


71E9 : 


18 


A9 


69 


Bl 


28 


99 


06 


02 


C8 


C4 


18 


D0 


F6 


A? 


8D 


99 


06 


02 


60 


00 


D2 


C5 


C6 


C9 


F9C9 


71FB: 


03 


4C 


E8 


70 
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Cette reference conceme h disquette TREMPUN MICRO, mats vous pouvez donner d cette routine le litre de 
voire choix : STARTUP.C par exempfe- 



CONSEILS AUX DEBUTANTS : 



Rappelons que, pour taper un programme en langage machine (sans assem- 
bler), il suffit d'acceder au Moniteur par un CALL - 151, puis de taper textuelle- 
ment chacune des lignes ci-dessus. Lorsque cette tache — 6 combien epuisante 
— est terminee, sortir du Moniteur par CTRL-C (touche CTRL + C) f puis taper le 
BSAVE NOM,A$7000,L$01FC indique en tete de programme. 



PRECAUTION ; 

Avant de rentrer les codes d'un programme, s'assurer que Ton a bien acces au DOS ou a 
ProDOS en essayant d'obtenir le catalogue de la disquette. Eventuellement (cela n'engage 
a rien ! ) essayer de sauver la routine avant me me de I'avoir tapee. 

Rien n'est plus desagreable que de se retrouver devant un ecran rempli de codes, apres 
vingt minutes de frappe laborieuse... sans le DOS ! 

Attention ! Ne tapez surtout pas les valeurs indiquees en couleur, a la fin de chaque ligne : 
elles sont destinees aux utilisateurs de la disquette SIGNATURE et permettent de localiser tres 
rapidement les eventuelles erreurs de saisie (lire r a ce sujet le bos de la page precedente). 
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■JFAi^ldl NESTOR 

GS RAM et CS RAM PLUS 

extensions memoire pour Apple IIGS — — 



Connaissez-vous les produits d Applied Engi- 
neering ? et notamment GS RAM et GS RAM 
PLUS, extensions memoire pour Apple IIGS ? 
Vous pensez sans doute que ces cartes sont 
encore reservees au marche amencain ? 
Erreur : llmportateur existe et je I'ai rencon- 
tre. Cest lo societe lyonnaise BREJOUX. 
J'ajoufe que le prix de vente de ces cartes est 
raisonnable (simes renseignements sontbons, 
il correspond a un cours normal du dollar, ce 
qui est ossez rare pour meriter d'etre signale). 
Qui plus est elles sont garanties 5 ans. Parfoi- 
fement : vous avez bien lu. 

GS RAM PLUS OU CS RAM ? 
La premiere supporte des DRAM Chips de 1MO, 
permettant d'obtenir 6 MEGAS sur la carte prin- 
cipal. La seconde supporte des RAM Chips de 
256 K. Elle est disponible en differentes versions 
(de 512 K a 1,5 MEGA), mais une carte addition- 
nelle "piggy back" peut, en venant s'enficher sur 
elle, etendre sa memoire a 8 MEGAS... reconnus 
par I'Apple IIGS. Naturellement, GS RAM et GS 
RAM PLUS sont compatibles avec tous les logi- 
ciels du GS, AppleWorks inclus, tout comme le 
Basic, ProDOS, DOS 3.3, PASCAL, C et CPM. 

PQURQUOI FAIRE7 

Par exemple pour passer de 6000 a 25000 lignes 
en traitement de texte. GS RAM repousse les 
limites d AppleWorks et vous offre, par-dessjs 
le marche, un buffer d'impression qui vous auto- 
rise a continuer la saisie pendant I'impression. 
Capacite memoire oblige : GS RAM auto- 
segmente vos fichrers importants pour les sauver 
sur deux disquettes ou plus. Pratique, non ? 



UN PATCH 

Craignont un retard dans la diffusion de la ver- 
sion AppleWorks 2.0 en Europe (ou sa non com- 
mercialisation), la Societe Brejoux avait lance 
I'etude d'un patch sur la version francoise 1 .4. 
La premiere monture de ce programme supporte 
la version 2,0 americaine el la version franchise 
1.4 ProDOS 8 et 16. Elle a la particularity de 
reconnoitre I'ordinateur lors de la configuration, 
ainsi que les diverses cartes d'exfension : Ram- 
Works pour le lie, RamFactor pour le // Plus, He 
et IIGS... GS RAM et GS RAM PLUS pour I'Apple 
IIGS. 

INSTALLATION 

Une notice on ne peut plus claire (en francais) 
indique exactement la marche a suivre. A moins 
de s'obstiner a lo lire la tete en bas et les yeux 
fermes, il est impossible de se tromper. 
Quand la carte est en place et le GS en marche P 
il suffit de consulter le tableau de bord pour 
savoir que Ton dispose d'une jolie reserve de 
memoire ! 

APPLEWORKS 2 EXPANDER 
La encore, I'utilisateur dispose d une documenta- 
tion en francais... que je lui conseille de lire (ce 
que je n'ai pas fait... d'ou un patch intempestif 
de ma version d'AppleWorks... mais j'en posse- 
dais heureusement une copie). II convient de sui- 
vre exactement les instructions, mais c'est 
enfantin. Precision utile ; le support technique 
de la Societe Brejoux n'est pas avare de preci- 
sions eventuelles. 



Documenlation e! renstignflfnwifi J 5oa£t£ Brejoux — J.-M. BRESARD 
7t, rue d& Montrtbloud 69009 LYON - W, 78 36 52 69. 
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UT1 L1TAI RE 



PRODOS a 



GS 



Marc BROCHA 



H0RL0CE.CS 



Cette routine en langage machine vous permettra de fravailler avec la date et I'heure 
dans vos programmes en Basic. Pour qu'elle fonctionne correctement i! est absolument 
necessaire d'avoir PRODOS 8 en memoire. 



MODE D'EMPLOI : 

Voire programme Basic devra contenir les lignes 
suivantes : 

5 PRINT CHR$ (4);"-HGRLOGE.GS" 

10 DA$ = "00/00/00": Rem Initialisation de la 
variable qui contiendra la date 

20 HE$ = "00:00": REM Initialisation de la varia- 
ble qui contiendra I'heure 



30 Rem Ces deux reservations sont indis- 
pen sables 

40 8DA$,HE$ 

50 PRINT "Nous sommes le ";DA$ 
60 PRINT "HEURE = ";HE$ 

Vous pourrez repeter la ligne 40 autant de fois 
que vous le desirerez dans votre programme. 



COMMENT ? A MARCHE ? 



Le programme Assembleur retient les deux adresses des variables DA$ et HE$, Ensuite, appel est fait a 
la routine GET TIME ($82) de PRODOS qui place la date et I'heure en memoire de la maniere suivante : 





49041 ($BF91) 






49040 ($BF90) 




7|6|5[4 ]3|2|l 


o 1 


1 7 | 6 | 5 


4 


| 3 | 2 | 1 | 




Ann6e 


Moil 


Jour 



TIME 49043 ($BF93) 



7|6|5|4|3|2|l|a 



Heure 



49042 ($BF92) 

7 I * | 5 j 4 | 3 | 2 | 1 1 



Minute 



Le reste du programme n r est qu'un decodage de ces donnees et une conversion au format texte de 
maniere a entrer dans DA$ et HE$, 

Remarque : II est primordial que DAS ait au moins une longueur de 8 caracteres et HE$ une longueur de 5. 



GUY - H ACHETTE 



0300: 
0302: 
0305: 
0307: 
030A: 
030C : 
030F: 



0310: 
0313: 
0315: 



A9 4C 

BB F5 
A9 10 
BD F6 
A9 03 

m F? 

60 



20 E3 
85 IB 
84 19 



03 



"3 



03 



DF 



1 

n 

£ 

3 
4 

5 
6 
? 
8 
9 

10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
3B 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 



* # 

* HORLOGE ,GS <PR0D058 UNIGUEMENT) * 

* i 

44444444444*44*44444#44444*444444444444*4444**44*44*4444444444* 



Routine utilitaire permettant 1/util isation 
de 1 'horloge interne du 2 GS. 

Cette routine est appelable car Basic 

10 DA$="00/00/00 TI :HE*=" 00:00" 

20 DA*, HE* 

(Voir exemple BASIC) 



Assembler MERLIN. PRO 



Roger WAGNER Editeur 

i — . __ — . — . + 

* * 
Marc BRQCHA Le 21/03/87 

* 4 

*ftf 444444444444444444444444444444444444444444444444444444444444 



ORG 


$300 




F'TRGET = 


$DFE3 


;Routine Aoplesoft de recherche de descripteur 


SMGFLT = 


$E301 


;Convertit 1 -'entier en Y en flottant dans FAC 


FOUT 


$ED34 


;Convertit FAC en une chaine de caracteres 


F BUFFER - 


tioo 


rBu-fter util ise par FDUT 


CHKCOH = 


fDEBE 


;Recherche d'une virgule 


STRDATE = 


$10 


iPointeur page de DATE <BA$) 


5TRTIME = 


$IA 


;Pointeur page de TIME (HE*) 


STR 


$1C 


sPainteur interm£diaire 


AMPER 


$3F5 




ML I 


tBFOO 


; Entree PRODGS 


DATE 


*BF90 


;Adresse de sauvegarde de Date par Prodos 


TIME 


*BF92 


jAdresse de sauvegarde de 1 'Heure par Prados 



* Initia] isation d'Ampersand 



* Corps du programme 



DEBUT 



JSR 
STA 
STY 



F'TRGET 

STRDATE 

STRDATE+1 



;Saisie de Tadresse T,A de DAI 
;Sauvergarde de Y ,A 



(Suite page 42) 
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51 


LDY 


£1 




;5auvegarde de 1 'adresse resile de DAI 






52 


LDA 


(STRDATE) ,Y 


sdans STRDATE 






jj 


PHA 










54 


INT 










55 


LDA 


(STRDATE) ,V 








56 


ST A 


STRDATE+1 








57 


PLA 










5B 


5TA 


STRDATE 








59 












60 


JSR 


CHKCOM 


;Recherche de 1 a vigul e 






61 


JSR 


PTRGET 


;Saisie de 1'adresse de HE$ dans Y,A 






62 


STA 


5TRT1ME 


;Sauvegarde de Y,A 






63 


STY 


STRTIME+1 








64 


LDY 


£1 


sSauvegarde de 1'adresse reelle de HE$ 






65 


LDA 


(STRTIME) ,Y ;dans STRTIME 






66 


PHA 










67 


INY 










68 


LDA 


(STRTIME) ,Y 








69 


ST A 


STRTIME+1 








70 


FLA 










71 

t A. 


STA 


STRTIME 








72 












73 


JSR 


ML I 


;Appel de la routine BET_TIHE 






74 


HEX 


82,00,00 


;code $82 sans parametres 






75 












76 


LDA 


DATE 


;Dn isole le numero du jour 






77 


AND 


£$1F 


idans JOUR 






7E 


STA 


JOUR 








79 


LDA 


n a t r 4. i 


\ un isa ! e i e nLimeru oe i annee 






80 


LSR 




;dans ANNEE 






8! 


STA 


ANN EE 








£32 


LDA 


DATE 


;Dn isole le numero du mois 






S3 


ROR 




sdans MOIS 






84 


LSR 










85 


LSR 










B6 


LSR 










37 


LSR 










se 


STA 


HOIS 








89 


LDX 


£3 


{Initial isaticn de LOQPX 






90 


5T X 


LOQPX 


;3 donnees Jour , Mais ,Ann£e 






91 


LDX 


STRDATE 


;0n travail le avec DA$ 






92 


LDY 


STRDATE+1 








93 


JSR 


LOOPO 


;On convert it les 3 bytes dans PAS 






94 












95 


LDA 


TIME+1 


;0n isole 1 'heure 






96 


STA 


JOUR 


;dans JOUR 






97 


LDA 


TIME 


;et les minutes 






9B 


STA 


MOIS 


;dans MOIS 






99 


LDX 


£2 


;Initial isation de LOOPS 






100 


STX 


LODPX 


;2 donn&es Heure,Minute 


0378 i 




101 


LDX 


STRTIME 


iOn travail le avec HE! 
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102 




LDY 


STRTIME+t 










103 




JSR 


LDOPO 


;On convert it tes 2 bytes dans HEJ 


037F: 






104 
1 05 




RTS 












106 


* Sous 


programme de Conversion 








107 
















I0B 


L00P0 


STX 


STR 


;0n sauvegarde \ 'adresse de travail 








109 




STY 


STR+i 


jdans STfi 








110 




LDX 


£0 


0366 : 


9E BE 


03 


111 




STX 


PTRX 


{Initialisation de FTRX, compteur de boucle 


0389: 


BD BB 


03 


112 


LOOP 


LDA 


-JQUR,X 


;0n orend la donnee pointee par JDUR,X 


038C : 


AS 




113 




TAY 




:0n la transfere dans Y 


038D : 


20 01 


E3 


114 




JSR 


SNGFLT 


;0n convert it Y en i 1 ottant dans FAC 


0390: 


20 34 


ED 


115 




JSR 


FQUT 


;0n decharge FAC en -format texte dans FBUFFER 


0393: 


AD BE 


03 


116 




LDA 


PTRX 


jCalcul de 1 ' index de sauvegarde dans ta 


0396 : 


OA 




117 




ASL 




;chaine d8 caracteres 


"397 * 






lie 




ADC 


PTRX 


;Y <— PTRX * 3 








119 




TAY 










120 




LDA 


£$30 


initialisation a 00 de la zone de 2 digits 








121 




STA 


1STR) ,Y 




039F : 


CB 




122 




1NY 






03A0 : 


91 1C 




123 




STA 


fSTR) Y 




03A2 : 


AD 01 


01 


124 




LDA 


FBUFFER+1 


;Saisie du digit de poids jaible 


03A5: 






125 




BED 


L0OP1 


;5i digit de poids fort reste a 


03A7 : 
03A9: 






126 
127 




STA 
DEY 


(STR) ,Y 


;sinon sauvegarde du digit de poids faible 


03AA ; 


AD 00 




i?9 

I ' — ■ 


i nnp i 

_U!J. 1 


LDA 


FBUFFER 


;Saisie du digit du poids -fort 


UjnU . 


7 1 1L 




1 ^9 

1^.7 




STA 


(STR) t Y 


:et sauvegarde 


mar . 


FT PtP 








INC 


PTRX 


;PTRX = PTRX + 1 




HC. DC. 








LDX 


PTRX 




. . • 


FT PF 








CPX 


LOOPX 


;Si PTRX <> LOOPX on continue 


03BB: 


DO CF 




133 
134 




BNE 


LOOP 




03BA : 






135 
136 




RTS 




; Si nan Retour 








137 


* Reservation 


des variables 








138 










03BB: 






139 


JOUR 


HEX 


00 




03BC: 






140 


M0IS 


HEX 


00 




03BD: 
03BE: 
03BF: 


00 




141 
142 
143 


ANNEE 

PTRX 

LQ0PX 


HEX 
HEX 
HEX 


00 
00 
00 


SI UOUS POSSEDEZ "SIGNATURE" 
contentez-'v-ous d e taper 1 es 
codes c i -apres . Sauvegarde : 



B SAM E HORLOGE.GS, A$ 3 O ,L*C0 



9306; 


A* 


4L 


80 


F5 


03 


A* 


18 


80 


F6 


0? 


A9 


63 


80 


F7 


63 


66 




E3 


OF 


85 


13 


84 


1? 


A6 


9D08 


9313: 


61 


B1 


13 




CB 


Bl 


i£ 




19 


68 


B5 


13 


20 


Bh 


DE 


26 


E3 


E>F 


85 


1A 


8 4 


IB 


A@ 


31 


A1C3 


3336 : 


Bl 


1m 


43 


ca 


b: 


1A 


85 


IB 


48 


85 


1A 


29 


90 


BF 


32 


66 





AD 




BF 


29 


IF 


BD 


BB 


G93A 


9348: 


93 


AD 


9\ 


BF 


4A 


8D 


bt 


03 


AO 


90 


BF 


4A 


4A 


4A 


4A 


4A 


30 


BC 


6 3 


A2 


63 


BE 


BF 


63 


C466 


3366 ; 


M 


1 B 


A4 


19 


29 


86 


83 


AD 


93 


BF 


B0 


BB 


83 


AD 


92 


BF 


3D 


BC 


63 


A2 


82 


8E 


BF 


63 


E4A<6 


6378; 


A<6 


1A 


A4 


1 B 


20 


86 


3 


68 


84 


IC 


84 


10 


A2 


80 


3E 


BE 


e 3 


B D 


BB 


63 


A3 


26 


6 1 


E3 


2 A DO 


93*6 ; 


26 


34 


ED 


AD 


BE 


93 


6A 


<5D 


BE 


ft 3 


as 


A? 


36 


91 


3C 


C8 




IC 


AD 


1 


01 


F6 


63 


91 


AF8D 


63h8: 


1C 


B8 


AO 




61 


?1 


1C 


EE 


BE 


93 


AE 


BE 


63 


EC 


PF 


63 


D0 


C F 


46 


00 





96 


69 


00 


S4CA 
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GUIDES DE FORMATION 



Lire attentivement lo documentation et le 
manuel de references, pais realiser tran- 
quillement, devant le clavier, les exemples 
(molheureusement peu nombreux) qui y 
sont proposes. Cest une bonne demarche, 
mais relativement longue, Certains points 
de la doc resteront forcement dans I'ombre. 
On devra sans doute acheter des ouvrages 
complernentaires. 

ivre un cours de formation : il en existe 
d'excellents, de bons et de detestables. Ne 
pas hesiter a nous ecrire quand c'est totale- 
ment "bidon". Cela arrive encore, helas ! 
Nous publierons volontiers les lettres des 
mecontents, mars aussi celles des partici- 
pants satisfaits. 

Les guides de formation : j'ai recemment pu 
compulser a loisir ceux mis au point par EDI* 
DACOM et j'avoue avoir ete conquis par leur 
clarte et par le sens pedagogique qui a 
guide leurs auteurs. 



VERSION SOFT 

dans une place forte gauioise ! 

Mais oui. ces champions du logkiel Apple s'installent 
du cote d'Alesia. Notez leur nouvelle odresse : 

VERSION SOFT 

44, rue d'Alesia 7501 4 PARIS Tel. : (16-1 ) 43.21 .38.21 



Comment decouvrir rapidement un logiciel comme PageMaker ou Excel ? 
II existe plusieurs solutions, Chacun ses gouts, pas vrai ? En voici quatre : 



Utiliser immediatement la disquette, sans 
consulter le manuel. Cest plein d'aleas... el 
ga peut vous couter une disquette non prote- 
gee* Le ludographe que je suis affectionne 
beaucoup cette methode car elle ressemble 
assez — sous certains aspects — a un jeu 
d'esprit, Je la deconseille neanmoins a cel- 
les et a ceux qui desirent se servir profes- 
sionnellement d'un logiciel. 



Environ 1 40 pages d'exemples i I lustres, 
allant de I'elaboration d un tableau simple 
a la creation d un journal des ventes a dou- 
ble entree, en passant par le grapheur 
d'Excel et les calculs statistiques.., sans 
oublier les macro-commandes : de quoi 
satisfaire les plus exigeants. Une disquette 
d'accampagnement est evidemment four* 
nie« Naturellement, on ne peut en tirer 
profit que si Ton possede la version origi- 
naled' EXCEL. 





Qui ne reve pas de publier son propre jour- 
nal... sous forme de bulletin "de sante" ? On 
sait que c'est possible, avec PageMaker, un 
Macintosh et une imprimante LaserWriter. 
Mais que Ton ne s'y trompe pas : tout n'y est 
pas d'une evidente simplicity ! 
Le guide de formation d'Edidacom tend pour- 
tant a prouver le contraire. 



D'autres guides, realises sur le me me 
modele, sont prevus (notamment pour 
WnierPfus) et je crais qu'il existe aussi un 
guide de formation pour APPLEWORKS 
(mais sur Apple lie). Nous ne manquerons 
pas de signaler, lors de leur parution, les 
interessants ouvrages de cet editeur. 

G.H, 

EDI DACOM 11, rue Mdrceau B.P.40 78800 HOUHLES — Tel. (1} 39.68.92.51 
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UTILITAIRE GRAPHIQUE 



ProDOS 




Yves BUONO 



ARC-EN-CIEL 



Voulez-vous concevoir votre propre logiciel de dessin, sur Apple... et en couleurs ? 
Gageons que la reponse est ouu Le programme (c'est presque un logiciel !) d'Yves 
BUONO devrait repondre a votre attente. S'il ne briile pas par ses explications 
(mais les sources figurent dans la disquette TREMPUN MICRO), il a le merite de 
fonctionner. Naturellement, il vous faut un Apple He ou lie avec souris (un GS fera 
semble-t-il I'affaire),.. et beaucoup de talent, Notez que les dessins reproduits page 
51 (ils sont plus jolis sur un ecran en couleurs) ont ete obtenus a partir du pro- 
gramme, par I'auteur lui-meme. Naturellement, Arcencie! est modifiable et perfec- 
tible, A vous de jouer ! 



Attention J pour lancer Arcenciel, il est 
indispensable de passer par un startup qui 
installe le programme au-dessus des pages 
graphiques. Le voici : 

ARC - START 

10 TEXT ; NORMAL : PRINT CHR$ 
<21 ) 

15 POKE 24574,0; POKE 103,1 3 PO 

KE 104 , 96 
20 PRINT CHR$ < 4) " -ARCENC3 EL" 



100 


GOSUB 568 




102 


GOTO 116 




104 


INPUT Bn iX,Y,S 


D45F 


106 


IF X > XX THEN X = XX 




108 


IF X < 2 THEN X = 2 




110 


IF Y > YY THEN Y = YY 




112 


IF Y < 1 THEN Y = 1 




114 


RETURN 


63B1 


116 


G0SU8 224: REM appel de 1 a s 






our i s 


0D48 


118 


HPLOT 0,YL TD 0,0 TO XL,0 TO 






XL,YL TO ,YL 




120 


HPLOT 1,0 TO 1,YL: HPLOT XL 






- 1,0 TO XL - i ,YL 





1 22 



124 
126 
128 



330 



132 
134 
136 
138 



140 



3 42 



144 
146 



PRINT "AVEZ- 
A CHARGER ?(0 



HOME ; UTAB 21 
VOUS UNE IMAGE 
/N) : " ! GET K* 
ON K* = "0" GOTO 130 
ON K$ = "N" GOTO 222 
HOME : PRINT CHR* (7); MTAB 
21: PRINT "Repondez par (0)u 
i oy (N)on . Merc i tt : FOR I = 
1500: NEXT : GOTO 122 
:H = 1 : UTAB 21 : INPUT 
DE L ' IMAGE A CHARGER : " 



GOTO 
13B 



138 



JE NE TROLWE 
CE NOM m " : FOR 
NEXT : NORMAL 



TO 
HOME 
"NOM 
" ;FI* 
ON FI* = 
ONERR GOTO 
GOTO 140 
FLASH : PRINT 
PAS D' IMAGE DE 

1 = TO 2000; 
: GOTO 122 

PRINT Ms'BLOAD" ;FI* U ,A*2000 
*: HOME : YTAB 21: PRINT u Mo 
us pouuez dessiner. Couleur 
Trace = " |CT 

PRINT "ATTENTION ! Cliquet t 
enu ou appelez <T)": MTAB 23 
; PRINT "pour positionner )e 
curseur sans tracer" 
UTAB 1 : PRINT D*;"IN£4" 
NB = 



F20E 



D8C9 
88EC 



4D9C 
2E90 
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ARC EM C I EL 

148 GDSUB 104 CB45 
150 IF NOT NB THEN IF S > I TH 

EN HPLOT X,Y:NB = 1 
152 IF S > 1 THEN HPLOT TO X,Y 

: UTAB 1 : GOTO 148 AB84 
154 IF S = 1 THEN UTAB 1: SCALE 

= 1 : R0T= 0: XDRAW 1 AT X,Yj 

FOR I = 1 TO 10: NEXT : XORA 

W 1 AT X,Y: GOTO 144 B143 
154 HOME : NORMAL 946E 
158 UTAB 1 : PRINT D* ; " IN£0" 
160 UTAB 21: PRINT "(Oouleur "( 

F) in (EHfacer 

u ; DQ73 
162 PRINT "(P)eindre (S)auuer " 

"<I)rapp*l Image m **\ 
164 PRINT "(R)etouche <T)rait 

"<G)omme " CT = ■ ;CT; 
166 IF FS = 1 THEN UTAB 21: HTA 

B 38; FLASH : PRINT "X H : NOR 

MAL D569 
168 '/TAB 24: HTAB 1: PRINT "(M)o 

dif icat ion image "(U) inUersi 

on " 11 ; 
170 UTAB 21: HTAB 2: INVERSE : P 

R1NT "C M ; : HTAB 13s PRINT *' F 

n ]i HTAB 24: PRINT M E" : NORM 

AL 

172 UTAB 22: HTAB 2: 1NUERSE : P 
RINT H P" ; ; HTAB 13: PRINT "5 
1 ; : HTAB 24 : PRINT "l*s NORM 
AL 

174 UTAB 23: HTAB 2: INVERSE : P 
RINT " R " ; : HTAB 13: PRINT "T 
";; HTAB 24: PRINT " G " : UTAB 
24: HTAB 2: PRINT "M H ; : HTAB 
24: PRINT "U" ; : NORMAL 

176 PRINT D*;" IN£4" 

178 UTAB 1: INPUT " 11 ; Z 1 , 22 ,S : IF 
ABS <S) < 3 THEN 178 

130 PRINT D*;"IN£0" 

182 UTAB 24: HTAB 40; GET A* 829? 
184 ON A$ = 1,11 OR A* = " ■ GOTO 

182 49DA 
186 ON A$ ^ B C" GOTO 214 
188 ON A* = H S" GOTO 326 59C6 
190 IF A* = "V" THEN & UX,Y; GO 

TO 222 9F90 
192 E F A* = "X H THEN Fl = 0: GOT 

534 F83A 
1?4 IF A$ - "F" THEN TEXT : HON 

E : GOTO 374 FAOD 
196 IF A$ = "E a THEN HGR sX = 



:Y = 0: POKE US,0: GOTO 116 



BCOA 



D30C 



EC2B 



198 

200 

20 2 



204 

206 
208 
210 
212 
214 



216 
218 



ON A* 
346 
GOSUB 
IF A* 
PRINT 



220 
222 



224 
226 

228 
230 

232 
234 
236 

238 



240 
242 
244 



246 



= " I " AND NOT 2 GOTO 
596 

= 11 M" AND 1 = THEN 
D$ ; " BSAUE/RAM/IMAO ,A*2 
! GOTO 454 
THEN GOSUB 



302 



: PR IN 
PRINT 
par '? 



000,L*iFF8" 
IF A$ = "T" 
GOTO 222 

ON A* = "R" GOTO 338 
ON A$ = "P" GOTO 236 
ON A* = "G" GOTO 428 
GOTO 182 

HOME : UTAB 22: HTAB 1 
T "COULEUR ? <0 a 7>" : 
"< Liste des couleurs 
* ) " : GET K$ 

IF K* = 11 ?" THEN GOSUB 586: 
GOTO 214 

IF Ki > "7 U OR K* < "0" THEN 
CALL GL: HOME : UTAB 22; FLA 
SH : PRINT " ERREUR ! a 7 S 
EULEMENT ! " : FOR I = TO 15 
00: NEXT : NORMAL : GOTO 214 
CT = UAL <K$): HCOLOR= CT 
HOME : UTAB 21 : PRINT "Uous 
pouvez dessinsr. "Coul eur Tr 
ace - " ;CT: PRINT "(Pressez 
'ESPACE' pour avoir le menu) 
■ : GOTO 1 44 
REM 

PRINT D*;"PR£4" : PRINT CHR* 
<1) 
PRINT 
HOME 



D*; ll PR£0" 

CT = 3: UTAB 24: PRINT 
"Couleur trace = u ;CT; 
HCOLOR= CT 
RETURN 
GOSUB 556 

POKE US,0: HOME : UTAB 21: P 

RINT ■ PLEIN OU TRAME CP/T)": 

PRINT "(Auez vous ferm£ les 

zones a peindre ?" : PRINT "S 

i roon , (Q) pour quitter ! >■ s 

GET K*: IF Kt = "P" THEN PO 

KE 214,0: GOTO 258 

ON K* = n T" GOTO 246 

ON K* = H Q n GOTO 156 

HOME : UTAB 21: PRINT M REPON 

DEZ PAR *P' /I' ou ' . MERC 

I" : CALL GL : FOR I = TO 15 

00: NEXT : GOTO 238 

POKE US,D: HOME : UTAB 21: H 

TAB 1 : PRINT "Trame Simple, 



COAB 
FC54 



0B1B 

25FE 
BOCS 
B4C3 
57BD 
3946 



F5D5 
BF02 



7DB7 
0B6F 



ODAB 



0DF7 
5F96 

7EFD 
3D29 
63B1 
0650 



9280 
5CD2 
B7CF 



0267 
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248 



250 



252 



254 



256 



258 



260 



262 
264 



266 

268 
270 
272 



Double/fond blanc": PRINT "o 
U Simple/fond Noir (S/D/N) - : 
GET K$ : IF K* = "5" THEN HO 
ME : UTAB 21 : HTAB 1 : PRINT 
"FointMlf* simple, -fond blan 
c" : POKE 206,127: POKE 214,1 
: GOTO 254 

IF K* = U D M THEN POKE 206,2 
55: POKE 214,2: HOME : YTAB 
21: HTAB 1; PRINT "Point i He 
double / fond blanc": GOTO 
254 

IF K* - "N" THEN POKE 206,1 
27: POKE 214,3: HOME s UTAB 
21 : HTAB 1 : PRINT "Pointil 1* 
sur -fond noir :*:PT = 1 r GO 
TO 254 

POKE US,0; HOME : UTAB 21: H 
TAB 1: PRINT "REPONDEZ PAR S 
, D OU N. MERCI a : CALL GL : F 
OR I = TO 1500: NEXT ; GOT 
246 

VTAB 22: HTAB 1: PRINT "UERT 
(1) " "UIOLET <2>" 
HTAB I i PRINT "ORAN 



BLEU C6) H : G 



H 

to 
G 



VTAB 23 
GE <5> 
OTO 402 

POKE VS,0: HOME : VTAB 21 
TAB 1 : PRINT 'Rapport des 
ns :' + <l)/l "<2)/i " <3)/r 
ET K*: FOR I = 1 TO 3 
IF K$ = STR* <I) THEN POKE 
215,1 + 1 : UTAB 21 : HTAB 14 
+3*7: INVERSE : PRINT 1 : 
NORMAL : GOTO 266 
NEXT I 

CALL GL: HOME : VTAB 21: HTA 
B 1 : PRINT "Erreur ! Uer i*ie 
z votre choix* Merc i " : FOR I 
= TO 1500: NEXT : GOTO 258 



274 



"LISTE COULEURS PAR ? N 
K* 

= ■?■ GOSUB 586 
UTAB 21 : HTAB 1 
"COULEUR 1 = " ;C1$: IF 
■0" OR CI* - H 4" THEN 
VTAB 21 1 HTA 
DE NOIR EN C 
: FOR I - 
GOTO 272 
CI* = " w OR 



PRINT 
; GET 
ON K* 
HOME 
INPUT 
Cl$ = 

CALL GL: HOME : 
B 1 : PRINT B PAS 
OULEUR 1 . MERCI 
TO 1500: NEXT : 
IF CI* > "7" OR 
LEN (CU) > 1 THEN GOSUB 40 
0: FOR I = TO 1500: NEXT ; 
GOTO 272 



CFEJ 



6 A D 9 



A0E3 



2A85 
3A18 

BC2C 
6592 



F6E2 
9DCB 



070C 

A EDA 
95C9 
67D7 



E7D2 



A772 



GOTO 222 
HOME 



GOTO 



Depla 



YTAB 1 : GOS 



FOR I - 1 TO 



C839 
432E 

5737 
852D 
22D2 
C7C3 



799D 

B47C 

9CB6 

2DDC 
3CC3 

1A17 



276 CALL 768, WL (CI*) 
278 INPUT 11 COULEUR 2 = n ;C2*: IF 
C24 > "7" OR C2$ ■ 11 " OR LE 
N CC2*) > 1 THEN GOSUB 40Q: 
FOR I = TO 1500: NEXT : GO 
TO 272 
280 CALL 779, WL <C2*> 
282 PRINT "CONFIRMATION SVP CO/N 

) : H 
284 GET K$ 

286 ON K$ = u O" GOTO 296 
288 ON K* = "N B GOTO 300 
290 HOME : VTAB 21 : HTAB 1 : INVE 

RSE : PRINT "CONFIRMATION SV 

P <0/N) B : NORMAL 
292 VTAB 22: HTAB 1: PRINT "COUL 

EUR 1 = B fCl*: PRINT "C0ULEU 

R 2 = ";C2*: GOTO 284 
294 INVERSE : PRINT K*: NORMAL : 

PT = 
296 REM 
298 & PX,Y 
300 GOSUB 224 
302 IF HH = 1 THEN 

306 

304 HOME : VTAB 21: PRINT 

cer le curseur cliquet relac 
h*": PRINT "Pour un trait: c 
liquet tenu n : PRINT "puis re 
lache" en bout de trait": FOR 
I = TO 3000: NEXT : HOME 

306 CALL GL 

308 UTAB 22s PRINT *<T)rait" 
310 PRINT D*;"IN£4 

UB 104 
312 SCALE= 1 : R0T= 
314 XDRAW 1 AT X,Y 

10: NEXT ; XDRAW 1 AT X,Y 
316 IF S ~ 2 THEN HP LOT X,Y; & 

NX,Y 

318 IF S = 3 THEN HPLOT PEEK < 
8) + 256 * PEEK (?) , PEEK < 
6> TO X,Y 

320 IF S < 1 THEN RETURN 

322 HH = 1 

324 GOTO 310 

326 REM SAuVEGARDE EN RAM 

328 B* = "83AUE/RAM/1MA" ; HOME : 
VTAB 21: PRINT U N" DE L' IMAG 
E A SAUVER EN RAM C 1 OU 2>" : 
GET R* 

330 NI = UAL <R*) 1913 
332 IF NI > 2 OR NI < 1 THEN CA 
LL GL: FLASH : VTAB 21: HTAB 



69E3 
091F 
2C13 

FE1B 
E3CC 

8FED 

8E4A 



A191 
6E77 
1491 

273F 
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asmmmvBBaaa 



ARC 



11 1 ou 

NEXT 



: FOR I = 
NORMAL : G 



334 
336 



338 



340 



342 
344 
346 
348 



350 



352 

354 
356 
358 
360 

362 



364 



366 
368 
370 

372 



374 

376 
378 



32: PRINT 
TO 1000 
OT0 328 
IM<NI> = I 

B$ = B$ + R$ + " ,A*200Q,L*1F 
F3" : PRINT D$jB*:H = 1: GOTO 
222 

GQSU6 556: HOME : UTAB 21: P 
RINT "Pour retoucher, press* 
r <R>" 

PRINT "Puis <G)omme <D>essin 

(B)lanc. "D£p1 ace-ment par 
les -Heches. <Q) pour quitte 
r" 

& RX,Y 

HOME : GOTO 144 

ON H = 1 GOTO 350 

CALL GL: HOME : UTAB 21 : PRI 

NT "Aucune image n y a encore 

ete (S)auuee ! " : FOR I = T 

1500: NEXT : CALL GL s GOTO 

122 

HOME : UTAB 21: PRINT "DMil 
ement des images avec les fl 
fechesj"; PRINT "Selection pa 
r ' RET0UR CHARIOT" 1 ; POKE US 
,0 

ON IA > 3 OR 3MCNI) ) GOTO 
356 

GOTO 348 
NI = - 3 

GET A$:A = ASC (At) 

ON A - 13 AND NI > - 1 GOTO 

222 

IF A = B OR A = 10 THEN NI = 
NI - 1 ; IF NI < 1 THEN NI = 
6: GOTO 36 o 

IF A = 21 OR A = 11 THEN NI 

-NI + 1: IFNI > 6 THEN NI 

= 1 : GOTO 366 

ON NI = - 1 GOTO 358 

ON IM(NI ) = GOTO 362 

8$ = " B L OA D/ RAM/ 1 MA ,r + STR$ 

(NI): PRINT D-$;B*: GOTO 358 

FLASH : PRINT 11 JE NE TROUUE 

PAS CETTE IMAGE." : FOR I = 

TO 2000: NEXT : NORMAL : GOT 

122 

UTAB 5: PRINT "UOULE2-UOUS S 

A LIVER SUR DI SGUETTE" 

PRINT 

PRINT "L' IMAGE QUE UOUS AVEZ 



CREEE ? <0/N)" 
380 UTAB 10: PRINT "Pressez CO)u 

i pour sauuegar der " 
382 UTAB 12: PRINT "Pressez une 

touche pour quitter": GET KS 
384 IF K$ < > "O" THEN HOME : 

GOTO 392 

386 UTAB 15: INPUT "NOM DE L' IMA 

GE A SAUCER : "" ;ISt 
388 ONERR GOTO 398 
390 PRINT D*;"BSAUE" -IS*" ,A* 200 

0»L*1FF8 U : HOME : UTAB 18: H 

TAB 16: PRINT "FAIT ! " 
392 UTAB 20: HTAB 10; PRINT "MER 

CI. AU REUOIR 7 u : FOR I = 

TO 2000; NEXT : HOME 
394 PRINT D*;"PR£4": PRINT CHR$ 

(0) 

396 PRINT D*j"PR£0" ; END 

398 CALL GL; HOME : UTAB 21: PRI 

NT "DDNNEZ UN NOM SUP . MERCI 

" ; FOR I - TO 1500; NEXT : 

HOME : GOTO 374 
400 HOME ; CALL GL: UTAB 21: PRI 

NT "ERREUR ! ATTENTION AU N " 
DE COULEUR" : UTAB 22: PRINT 

"MERCI !" ; RETURN 
402 POKE US f 0: ON PT = 1 GOTO 41 

6 

404 GET K* 

406 IF K* = "1" THEN 

2: UTAB 22: HTAB 
408 IF K* = "2" THEN 

5: UTAB 22 

4 

410 IF K$ = 11 5" THEN 
70: UTAB 23 
4 

412 IF K$ = "6" THEN POKE 207,2 
13; UTAB 23: HTAB 27: GOTO 2 
94 

414 GOTO 426 
416 GET K* 
418 IF K* = "1" 

5: UTAB 22: 
420 IF K$ = "2" 

2: UTAB 22; 

4 

422 IF K* = "5" 
13: UTAB 23 
4 

424 IF K* = "6" THEN POKE 207,1 
70: UTAB 23: HTAB 27; GOTO 2 
94 



POKE 207,4 
7: GOTO 294 
POKE 207,8 
HTAB 29: GOTO 29 

POKE 207,1 
HTAB 9: GOTO 29 



THEN POKE 207,8 
HTAB 7; GOTO 294 
THEN POKE 207,4 
HTAB 29; GOTO 29 

THEN POKE 207,2 
HTAB 9: GOTO 29 



4B0D 
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426 HOME : YTAB 21; HTAB 1: PRIN 
T "ATTENTION AU N" DE COULEU 
R. MERCI 11 ; PRINT CHR* i?) ; 
FOR I = TO 1500: NEXT : GO 
TO 238 

428 GOSUB 556: HOME : UTAB 21: P 
RINT " GOMME agit entre 2 poi 
nts bl ancs" 

430 PRINT D$; H IN£0" 

432 INPUT "Couleur de SUBSTITUTI 
ON ? (0 a 7) " \2% 

434 IF 2% > "7" OR 2% = 11 " OR L 
EN <Z*> > J THEN CALL GL: H 
OME : UTAB 21: PRINT "ATTENT 
ION AU N " DE COULEUR. MERCI " 
: FOR I = TO 1000: NEXT : 
GOTO 428 

436 CT = UAL (2*) : CALL 768, CT 

438 HOME : UTAB 21: PRINT "C7 i qu 
er pour QUITTER" i UTAB 21: H 
TAB 30: PRINT "Couleur = " ;C 
T 

440 PRINT D* ; M IN£4" 

442 UTAB 1 : GOSUB 104 

444 SCALE= 1 : ROT= 

446 XDRAW 1 AT X , Y : FDR 1 = TO 

10: NEXT : XDRAU 1 AT X,Y 
448 & AX,Y 

450 ON A8S CS) < > 2 GOTO 442 
452 POKE VS,0: GOTO 156 
454 REM MODIFICATION OE L - ' IMAGE 
456 2 = 

458 PRINT D* ; " BLOAD/RAM/IMAO ,A*4 

000,L*1FF8" 
460 HOME : UTAB 21: PRINT "D£frn 

issez u n e + e n e t r e auec la so 

ur is " " " J 
462 PRINT "Posi ti onnez 1 e curseu 

r puis, c 1 i q u e z , " " » * 
464 PRINT "de^lacez cHquet tenu 

9 rel achez * " ; 

466 PRINT " (Pressez 'E5PACE' po 

ur avoi r 1 e Menu) " j 
468 CT = 3: HCOLOR= CT 
470 UTAB 1: PRINT D$j a IN£4" 
472 INPUT 11 " pC,Y f S 
474 IF X > XL THEN X = XL 
474 IF X < THEN X = 
478 IF Y > YL THEN Y = YL 
480 IF Y < THEN Y = 
482 IF X = XL THEN 486 
484 X = INT <X / 7) * 7 
486 SCALED 1 : ROT= 
488 XDRAU 1 AT X,Y: FOR 1 = TO 



10: NEXT : XDRAU 1 AT X,Y 
490 IF S < THEN GOSUB 224: PO 

KE US,0: GOTO 156 
492 IF S = 2 THEN & OX,Y:EB = 

PEEK <B) + 256 * PEEK (7) :Y 

B = PEEK (6) 
494 IF S < > 3 THEN UTAB 1 ; GO 

TO 472 

494 ON EB = X OR YB ■ Y GOTO 500 

498 GOSUB 548: GOTO 504 

500 CALL GL: HOME : UTAB 21: PRI 
NT "FENETRE NULLE . " : PRINT " 
D£placez le curseur. Merc i " : 
FOR I = TO 2000: NEXT 

502 GOSUB 224: GOTO 460 

504 HOME : UTAB 21: PRINT " POUR 

RECTIFIER UOTRE IMAGE , PRESS 
EZ 2 " " i VTAB 22: PRINT "0 
U BI £N PRESSEZ G POUR QUITTE 
R 1 : NORMAL 

506 PRINT D*;"IN£0": GET K* 
508 IF K$ = "2" THEN 2 = 1: GOTO 
514 

510 IF K* = "Q" THEN GOSUB 548: 

GOTO 156 
512 CALL GL: FLASH : GOTO 504 
514 POKE 230,64: CALL 87? 
516 POKE US,0 

518 IF X = 279 THEN GOSUB 544: 
GOTO 522 

520 CD = EB / 7:LD = Y8:CA = IN 
LA = Y:C1 ■ CD: LI' 
LA 



T <X / 7> 

- LD:C2 - CA:L2 
522 HGR 
524 & UX,Y 

526 CALL 821 jLD.CD.CApLA 
528 Fl = 1 

530 HOME : UTAB 21: PRINT "VOUS 
POuVEZ MODIFIER UOTRE DESSIN 

532 PRINT "Uotre modification fi 
nie, pressez (X) . " ; : FOR I 
= TO 2500: NEXT : GOTO 156 

534 ON 2 = 1 GOTO 538 

536 CALL GL: GOTO 156 

538 POKE 230,64: CALL 42450: POK 
E 230 ,32; CALL 879 

540 CALL 821 ,U ,C1 ,C2,L2 

542 PRINT D*;" BLOAD/RAM/IMAO, A*2 
000,L$1FF8 B 

544 & WX,Y: GOSUB 224 :Z = 0: GOT 
156 

546 CD = EB / 7 : LD = YB:CA = 40: 
LA = Y : CI = CD:L1 = LD:C2 = 



2844 



B2EF 



B68B 
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CA;L2 = LA; RETURN 
548 IF EB > X THEN TT = X:X » EG 

:EB = TT 101 I 

550 IF YB > Y THEN TT » Y:Y = YB 

:YB = TT 6B50 
552 FOR I = EB TO X; XDRAW 1 AT 

I ,YB; NEXT ; FOR I = YB TO Y 

: XDRAW 1 AT X , I ; NEXT 
554 FOR J = YB TO Y: XDRAW 1 AT 

EB,J: NEXT : FOR J = EB TO X 

: XDRAW 1 AT J f Ys NEXT : RET 

URN DC7E 
556 HOME : UTAB 21: PRINT "Posit 

ionnez le curseur s puis Cliq 

uez" FA34 
558 PRINT D»f"IN£4 u : POKE US,0 
540 UTA8 1 i GOSUB 104 
562 SCALE= Is ROT- 0: XDRAW 1 AT 

X f Yi FOR I = TO 10: NEXT ; 

XDRAW 1 AT X,Y: IF ABS (S) 

< > 2 THEN 560 7182 
564 UTAB is INPUT 11 M ; Z 1 ,Z2,S: IF 

ABS (S) < 3 THEN 564 
566 PRINT Ws'^NEO": POKE YS,0: 

RETURN 9D6F 



16 



HGR 



(0) 



568 D* = CHR$ <4>: DIM IM(6):IA 

= 3;GL = - 1052 
570 PRINT D*5"BRUN PR19G.C" 
572 PRINT D$ ; " BLOAD TEINT .CAR . C" 
574 PRINT D* ; "BLOAD TBADR.C" 
576 PRINT D$ " BLOAD TRANSITS . C" 
578 XL = 279:YL = 159:US = 

368 : H = : HH = 
580 XX = XL - 2:YY = YL - 1 
582 POKE 232,26: POKE 233,3 
584 RETURN 

586 HOME ! UTAB 21 : PRINT " 

"NoirO" TAB-: 22) "<4) "Noiri" 
588 PRINT " (1) "Vert" TAB* 22) 11 

<5) "Orange" 
590 PRINT " (2) "Violet" TAB* 22 

)"<6) 'Bleu" 
592 PRINT " (3) "BUncO" TAB* 22 

) u (7) "BlanclctK" ; 
594 FOR I = TO 3000: NEXT 

TURN 

596 IF 2 = 1 THEN RETURN 
59B 8$ = "BSAVE/RAM/IMA" + 

<IA) + u f A J $2000 J LflFF8" 

NT D$;B*:1M(IA) = 1 
600 IA = IA + 1 : IF 3A > 6 THEN 

1A = 3 
602 H = 1 ; RETURN 



STR* 
PRI 



4476 
A1BC 
AE1C 
C701 
4BB6 

2834 
7045 
67CE 
63B1 

2916 

2034 

4834 

4CA2 

AAF5 
E07D 

2B20 

EFA4 
1334 



/TMF/ARC/TEINT . CAR. C,A$ 0300 ,L$0032 

0300: 20 Bl 00 20 E9 F6 A5 E4 85 CE 60 20 Bl 0Q 20 E9 A5E6 
0310: F6 A5 E4 85 CF AS CE 85 E4 60 01 00 04 00 96 OA 
0320: 20 25 24 OC 18 24 3C 3F IF 3F 37 36 16 36 2E 2D 
0330: 05 00 1E05 



/TMF/ARC/TBADR . C , A$036F , L*0 023 

036F: A5 4BA5 
0370: FE 8D 34 03 A9 00 85 FE A5 FE 20 11 F4 A4 FE AS 
0380: 26 99 00 90 A5 27 05 E6 99 CO ?0 E6 FE CO BF DO 
0390: E7 60 2F47 



Tapez aussi ces 3 
pe tites routines, 
mats n'oubiiez pas 
le programme LAA 
principal (page svi- 
vante). 

St vous etes inte- 
resse(e) par les 
sources de ces pro- 
grammes, com- 
mandez tout sim- 
ptemertt h dis- 
quette THBMPUN 
MICRO n° 1 5. Bulle- 
tin special a la fin 
de la revue. 



/TMF/ARC/TRANSIT8,C,A$Q335,L*003A 



0335; 20 F5 E6 86 06 20 F5 E6 86 07 20 E92F 

0340: F5 E6 86 08 20 F5 E6 86 09 A6 06 BD GO 90 85 F9 F26A 

0350: 85 CE BD CO 90 85 FA 49 60 85 CF A4 07 Bl F9 91 

0360: CE C8 C4 08 DO F7 E8 E4 09 F0 03 4C 4B 03 60 
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Routine LM principale 
PR19G.C 



Deux exemples — molheureusement en 
noir et blanc — de dessins realisables 
avec ARCENCIEL 



HNIIf llltllltllMIH 
— !■'■ 



/TMF/ARC/PR19G.C,A*BC00 ,L«683 




acee : 

BCl 9: 
0C38: 
8C49: 
0C6B: 
0C78: 
ec?e : 

0CA8; 

0CC0: 

6CD6; 

0CF0: 

0093 : 

0020: 

0038: 

9059 : 

0D6B: 

3DSB : 

0098: 

9DB9 : 

0DC8: 

GDEG : 

0DF8: 

0E10 ; 

0E28: 

0E48: 

BE58: 

8E78: 

0E88: 

8EA9 : 

0EB8: 

0ED0: 

0EE8: 



A9 4C 
97 85 
F0 12 
96 9F 

13 29 
8F 20 
08 E6 
20 6A 
0D 29 
6G 10 
EB F0 
85 09 
BF AS 
20 13 
9F 28 
E8 A5 

83 11 
4C 56 
CE 20 
EF 69 
29 7A 
F9 0E 
0F Bl 
85 06 
55 F6 

84 9F 
AA 85 
74 It 
20 79 
FD A5 
2A F0 



8D F5 3 A0 
4B A5 Al 85 
C9 50 F8 15 
60 20 65 1 1 
20 5E BF DB 
5£ BF D0 BB 
13 90 F9 C8 
86 20 13 9D 
8F C6 86 C6 
6A 0F 20 6A 
99 04 A5 4A 
35 A5 4B 85 
60 28 6A 0F 
09 D8 40 4C 
80 28 AA 0F 
6F 8D 4C 71 
96 9D 83 11 
85 4B 85 07 
BC A5 D6 C9 
40 0F A5 D6 
09 C9 29 F9 
@F A5 06 20 
A5 EF CD 33 
IE 85 07 29 
28 7C 0F 84 



10 8C 
08 85 
C9 52 
85 40 
3 20 
20 5E 



26 
F8 



71 

13 



2C C9 D5 
D0 08 
FD A5 96 
A6 FF 29 



F0 

4C 71 
4A 
6A 

19 A5 CF C9 
EC C9 02 E9 



06 29 
8F E6 
85 86 

07 A5 
20 13 
56 8 C 
A5 99 
9F A6 
EB 86 
CA BO 
93 96 
C? 02 
A2 A5 
7A 9F 
03 09 
7C 0F 
EE 28 
23 A9 
0F EA 
99 65 
0F 20 
2A F0 
AB 99 



BC C? AA F0 88 C9 



F6 83 A9 
4C 28 F5 
F0 90 C9 
A9 84 85 
50 3D 20 
0F 00 03 
0F A5 07 
20 64 0F 
13 0D F0 

06 28 71 
E6 06 28 
4C 85 08 
00 20 71 
29 6A 6F 
DB 9 A 4C 
40 E8 FF 
40 68 A6 

83 11 85 
D0 4C 03 
00 03 4C 
88 29 7A 

84 EE 68 

07 A5 EE 
81 IE 85 
E5 8E 4C 
05 85 FD 
A9 02 85 
A9 83 DB 
84 8F 09 
9C C9 AA 
8F A9 AA 
55 F0 35 



0C 8C 
E6 86 
56 D0 
FF 85 
71 0F 
20 50 
85 IB 
D0 0B 
13 20 
0F 28 
8B 0D 
29 7A 
9F A5 
20 13 
56 0C 
FB 14 
4D F8 
08 85 
BE A5 
B2 BE 
8F A5 
A5 EE 
CO 32 
1A 28 
12 0E 
A5 06 
19 29 
E6 EA 
Bl 68 
F0 08 
85 FD 
C9 D5 



F7 83 
66 86 
0C 4C 
0C E6 
20 71 
80 28 
A5 08 
20 64 
64 BF 
13 90 
F8 24 
1 1 A5 
09 F0 

eo 20 

20 71 
A5 08 
25 CA 
4C 86 
06 00 
C9 01 
97 28 
80 32 
03 F8 
7C 8F 
A5 CF 
4A 90 
73 10 
A9 01 
CA 00 
C9 55 
A5 EC 
F0 31 



69 85 0B 
4A A5 98 
8C 11 4C 

06 20 13 
0F C6 06 
71 0F 20 
35 1A A5 
0F D0 03 
08 9B 20 
F0 C0 20 
4C 8A QD 
30 29 7F 
8D 20 71 
71 0F A5 
0F 20 6F 
90 83 11 
8D 83 11 
40 20 13 

07 A5 07 
F8 74 A4 
7A 9F A5 
93 A5 EF 
E2 A4 EE 
Bt IE 85 
C9 2A F8 
10 A9 98 
A5 EC C5 
00 El A5 
F4 FB ED 
F8 10 C9 
C9 82 98 
A? D5 55 



20 82 
C9 57 
2B 11 
80 F0 
C6 06 
71 0F 
4B 85 
20 66 
64 8F 
BC 80 
C6 96 
31 26 
BF 20 
09 F8 
8D 4C 
E8 A5 
35 8 6 
00 F 
85 0C 
FE 98 
1A 20 
80 33 
Bl IE 

18 28 
0C C9 
FB 0E 

19 08 
CF 25 
A5 06 
05 F0 
Bl B9 
FD A5 



El A5 A0 
F8 13 C9 
4C CC 19 
13 20 5E 
20 13 8D 
E6 06 29 
07 A5 4C 
0D 20 6A 
D0 03 29 
A5 4A C5 
20 8B 90 
F8 B2 A9 
13 80 20 
90 28 71 
6A 9F 28 
07 90 83 
85 4 A CA 
83 4C 23 
4C 39 8F 
18 69 05 
7A 0F A5 
03 20 65 
85 08 20 
0F Bl 



7C 

AA F8 88 
20 6A 8F 
E7 F0 12 
FD 35 E4 
85 EC A9 
0C A9 D5 
AB A5 CF 
06 *A 98 



B5 
41 
4C 
BF 
F0 
6A 
85 
BF 
66 
06 
09 
01 
6A 
9F 

6A 

11 

BD 

0D 
A5 
A5 

IB 

1 1 

7C 

IE 

C 9 

26 

A9 

20 

00 

85 

C9 

0F 

(Suite page 52) 
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ARC-EN'CIEL (suite et fin de PR19G.C) 



fl F a d * 


AC 


LU 


FB 


0D 


20 


6A 


0F 


20 


84 


GF 


00 


07 


4C 


71 


0F 


A? 


2 


85 


19 


20 


73 


10 


A5 


EC 


FD12 


Ur 1 d : 




1 V 


F0 


Ey 


A5 


CF 


25 


FD 
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08 
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Continuez avec des zeros jusqu'a $1282 inclus, Sauvegarde : BSAVE PR19G,C r A$C00,L$683 



voici enfin la seconde edition des clefs pour le CS 



am pour 

APPLE II GS 



ranm 




Ouvrage indispensable, meme s'il ne constitue pas une pana- 
cee. Dans cette reedition, Nicole Breaud-Pouliquen a revu sa 
copie ©t tenu largement compte des complements d'informa- 
fion dont elle a pu disposer, Cest dire que le contenu est 
beaucoup plus conforme a la machine actuelle que celui de la 
premiere edition {qui concernait surtout le prototype du GS), 
La presentation de ces CLEFS POUR L'APPLB II GS benefice 
aussi des ameliorations que Ton note aujourd'hui dans la plu- 
part des ouvrages du PSI. 

Qui doit lire (pardon : etudier) le livre de Nicole Breaud-Pou- 
liquen ? Toute personne qui, possedant, un GS, souhaite le 
programmer elle-merne. Le lecteur (ou la lectrice) disposera 
non seulement de la liste des instructions du 65C816, mais de 
celle (interminable) des outils. II apprendra comment utilfser 
TAssembleur,.. Bref, ces CLEFS lui permettront de ne plus 
avoir ['impression d'etre devant une belle fill© — le GS — 
aveugle, sourde... et muette. N«*or. 
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OSCAR 



LALPHABET 



Les logiciels de la serie OSCAR 
fonctionnent sur Apple // muni 
de deux lecteurs de disquettes et 
d'un joystick, Un moniteur cou- 
leur est souhaifable d'autant 
plus que le graphisme est soi- 
gne. Pour celui-ci, on pourrait se 
passer du second tecteur, mais a 
condition de negliger le module 
"L'alphabet en images", ce qui 
seraif dommage. Pour les deux 
autres, un seut lectern - est suff i- 
sant. Utilisation simple, reelle- 
ment a lo portee d'enfants de 3 a 
8 ans. Documentation succinate, 
mais suffisante. Des pastilles 
autocollantes de couleur sont 
fournies pour differencier les 
deux boutons du joystick. 
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OSCAR 

L'ALBUM enchante 

Meme aufeur que le precedent 
(L. Villain). Cest un logiciel 
d'eveil pour les petits : recon- 
naissance d'animaux, d'abjets 
etc. a trovers un album qui parle 
(synthese vocale), ll est utilise* 
ble a partir du joystick ou du cla- 
vier et comporte une vingtaine 
de puzzles elementoires. 



OSCAR 



PUZZLES 



Deux niveaux de difficulty : 4 ou 6 
pieces 6 remettre en ordre. Mode 
d'emploi on ne peut plus simple. 
Oil il est prouve qu'il est possible 
de donner des "lepns" de logique 
a de tres jeunes enfants. 

API. 12 themin du Petit Etang S600Q POJTIER5 
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K^n-Luurb Ui BRETON 
HttXKiY SOFLW 'ARK 
t/istftrciti' pftftr Wtnitiftvi/i 



LA CRAPULE «*£ 

Si vous possedez un MAC 512 ou 
MAC + , transformez-vous en 
detective et suivez la piste.., fle- 
chee pour vous par Jean-Louis LE 
BRETON. 

Je vous previens, c'est coton ! 
Heureusement, si vous tournez 
trop longtemps en rond, vous 
aurez la possibility d'ecrire au 
docteur Froggy pour obtenir la 
solution. Voici son adresse : 

Docteur Froggy 

34, rue Henri Chevreau 

75020 PARIS 

Cest aussi celle de FROGGY 
SOFTWARE,., ou vous obtiendrez 
tous les renseignements sur les 
productions de Jean-Louis LE 
BRETON (TeL[16-l]43, 58.25,98). 



■ ■■ ■mimw i 
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UTILITAIRE 




GRAPH.EXPRESS 



Clement RENARD 

ROUTINE 
DEMANDEE 
MODE TEXT 



100 

105 
110 
115 

120 

125 



TEXT : NORMAL :D* = CHR* <4): PRINT 0* - PR£3" : PRINT : HOME 

DIM M<12) f ANC12) 

PRINT D* "RESTORE GRAPH ,UAR" 

G* = "*********************************^ 

UTAB 23: PRINT "<T)ermin£ (A)br^ger (C)orriger la ualeur pr£c£dent 



e (RET) Ualeur non modf-fi^e"; 
1 = 0: PRINT : FOR J = 1 TO N 
RINT M(J) ; NEXT 
1301=1+1 
135 GOSUB 275 

140 GOSUB 280 ; INPUT " " jA*: IF 
145 IF A* = "C AND I > 1 THEN 
150 IF A* = "T" THEN GOSUB 
155 IF A* = "A" THEN CALL 
160 AN(I) ■ UAL (A*) 
165 GOSUB 275 

170 GOSUB 290: INPUT *« ;M*: 
175 IF M* = H C U THEN 135 
180 IF m = "T" OR M* = "A" 
185 MU) = UAL CM*) 



UTAB 1 : PRINT 

"/TAB 4 + J; PRINT AN(J) ; : 



HTAB 7: P 



NOT LEN (A*) 
GOSUB 275:1 = 



THEN 145 
I - t : GOTO 



135 



275:1 = N: GOTO 200 
- 958 s I = I - 1 : GOTO 



200 



IF NOT LEN <M*> THEN 190 



THEN A* = M$: GOTO 150 



190 
195 
200 
205 
210 
215 



GOSUB 275 

IF I < 12 THEN 



70 
CALL 



PRINT 
C STR* 

/ D)) 



FOR J = 1 TO I 
NEXT 
D = G / 
UTAB 22 
» * R* 

HOME : UTAB 5: 
NT TX*: PRINT 
FOR J = 1 TO I 
HTAB 17 - LEN 
<G*, INT (M<J) / 
235 NEXT 

240 PRINT j PRINT ! 
N = I : PRINT D$ u 
UTAB 22: PRINT i 
E (A)PPLESOFT " ; 
IF R* = H C H THEN 
IF R$ = "M" THEN 
IF Rt = "A" THEN 
GOTO 250 

GOSUB 280: GOTO 285 
UTAB 5 + I : PRINT ; 
CALL - 848s PRINT 
UTAB 5 + I : PRINT 



130 
IF M(J) 



> G THEN G « M<J) 



958 : INPUT "TITRE " \ R* ; I F LEN <R*) THEN TX 



220 

225 
230 



245 
250 

255 
240 
245 
270 
275 
280 
285 
290 



IF LEN <TX*) THEN HTAB (80 



LEN CTX*)> / 2: PRI 



AN( J) 



IF NOT M<J) THEN 235 



<M(J)>) : PRINT M<J);: HTAB 20; PRINT LEFT* 



PRINT 
STORE 
CALL 
: GET 
125 
PRINT 
HOME 



u Ethelle: 1/" 
GRAPH .UAR" 

- 198: PRINT 
R* 

D* fl RUN MENU" 
END 



INT CD) 



"(OORRIGER (M)ENU DE DISQUETT 



RETURN 
AN ( I ) j : 
HTAB 7 



HTAB 7: 
RETURN 



PRINT M(I) : RETURN 
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INITIATION 




■as* 



Francois GALLET 



LA SOURIS ET 
L'ASSEMBLEUR 



TROISIEME PARTIE : Traitement de ('interruption et limites 



£t vaici venir un episode supplementaire dans la 
conquefe de la Souris (rassurez-vous, cela se termi* 
nera bientdt... ce n'est pas Dallas, que diable I)* 



• Traitement de ['interruption avec tests du bouton 
{INTERUP). 

• Etablissement des limites d'excursion de la Souris, 

• Recherche des coordonnees. 

• Reduction des coordonnees pour offkhage du poin- 
teur (la prochaine fois) d l ecran. 

Le nouveau source etant arrive (mais pas fe Beaujo- 
lais !), mettez-le directement a la suite de celur de 
la derniere fois, a partir de I'adresse $60D8 (debut 
de INTERUP). N'oubliez pas, pour ceux qui utilisent 
un Assembleur (ProCODE), de rajouter les labels 
definis au debut, a ceux existant deja. 

De plus, il faudra inserer les lignes suivantes pour 
remplacer une partie des quelques octets (NOP) 
reserves precedemment (ligne 38), afin d'utiliser les 
nouvelles routines ; 



Appel de la routine 
fixani les limites 
Offset de HOMEMOUSt 

Offset de READMOUSE 

Coordonnees acluelles 





601 A: 


2a 2B 61 


JSR LIMITES 




6010 ; 


AO 18 


LDY £HOME 




601 F : 


2a 34 60 


JSR CALLCARD 




6022 ; 


AO 14 


LDY £READ 




6024 ; 


2a 34 60 


JSR CALLCARD 




6027 : 


20 63 61 


JSR MEWCOORD 










i 


TREMPLIN MICRO 

ft 



A chaque extinction verticole de I'ecran (60 fois par 
seconde), le 6502 viendra se brancher sur la routine 
INTERUP, le vecteur d'interruption ($3FE-$3FF) etant 
initialise a cette adresse. 

Reportez-vous au listing pour voir et comprendre la 
demarche suivie dans les tests sur le bouton (4 cas 
possibles), en vous aidant, bien evidemment, de ce 
que je vous ai explique dans la premiere partie. 



Souvenez-vous : lors du premier article, je vous 
avais precise que les limites devaient etre eta- 
blies beaucoup plus loin que cedes de I'ecran. En 
fait, et comme exemple, elles ont ete definies 
comme suit : 

4 - $022F 
<- 559 



$0000 <- Abscisse 
Q <— Abscisse 



ou 



<— Ordonnee 
(7 4— Ordonnee 



4- $0167 
4- 359 



ou 



Les focfeurs de reduction respectifs sont done de 7 
((7 X 80)- 1] pour Xet del5 ((15 X 24) - 1) pour Y. 
II vous est loisible de modifier ces parametres, et 
vous pouvez le faire en adoptant la demarche 
suivante : 

• Modifier la valeur des limites en X et Y en tenant 
compte du ou des nouveaux faeteurs de reduction, 

* Modifier la valeur de ces faeteurs en ligne 114 du 

nOUVeau SOurce, (suite page 56) 
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D#ttrmingtioFt des nouvelles coordonntet 

et reduction de celles-ci dans les limites de lecron.. 

Cest le sous-programme NEWCOORD qui se charge 
d'aller chercher les nouvelles coordonnees dans les 
trous d'ecran correspondents, ef de les transmettre 
a REDUIT pour traitement. REDUIT effectue une divi- 
sion 16 bits (coordonnee trou d'ecran) / 8 bits (fac- 
teur), et renvoie un parometre (dans le registre A) 
compris dans les bornes definies, en X ou Y, de 
I'&ran. 

Le resultat est stocke selon X ou Y dans les memoi- 
res nommees QUOTX et QUOTY. 

Pour plus de precisions sur les divisions en langage 
Machine, je vous renvoie, comme la premiere fois, 
a I'ouvrage "LA PROGRAMMATION DU 65QT de 
RODNAY ZAK5. 



Cette fois, II se passero quelque chose de significa- 
tif. En effet, si vous appuyez sur le bouton, vous 
entendrez un bip, Ceci n f a evidemment que valeur 
de demonstration, et vous trouverez, j'en suts sur, 
les traitements les plus divers pour ^utilisation du 
bouton. 

Je vous laisse mairttenant assimiler cette nouvelle 
etape dans la connaissante de la Souris, car la pro* 
chcine fois, oh merveille !, vous verrez enfin bou- 
ger le pointeur sur I'ecran. 

A bientot*. Francis GALLET 

NQTA : Si vous travaillez sous Moniteur, chorgez d'obord le 
SOURIS.C que vous avei sauve la demiere fois, puis 
rajoutez fes octets de ['extension d'aujourd'hui, et souvegardez 
enfin le tout par : 

BSAVE SOURIS.C,A$60O0 r L436 

Loncez par CALL 24576 en Basic ou S6O0OG sous Moniteur, 



o 

1 


M 


2 
3 


# Programmat ion de 


* 

la Souris I Troisifcme partie * 


A 

5 


* 

# 


6 

7 


* 

BELL 


EOU 


$FF3A 


:Emet un bip 


8 


CLAM? 


EQU 


$17 


;Fixe de nouvelles 1 imites aux coord. X et Y 


9 


ETAT 


EQU 


$77C 


:Etat du bouton et des interruptions 


10 


HB 


EQU 


$1A 


♦ 


11 


HBX 


EQU 


$57C 


;0ctet de poids fort de l'abcisse retourn^e par 


12 








:1a souris (voir aussi LBX) 


13 


HBY 


EQU 


$5FC 


:0ctet de poids fort de 1'ordonnSe retourrc£e par 


14 








;la souris (voir aussi LBY) 


15 


HOME 


EQU 


$18 


;Positionne les registres de position de la souris 


16 








;aux valeurs infSrieures des limites . soit en 


17 








;haut a gauche , Doit fttre suivi de READ 


16 


LB 


EQU 


$19 


■ 


19 


LBX 


EQU 


$47C 


;0ctet de poids faible de l'abcisse retourn£e par 


20 








;la souris <voir aussi HBX) 


21 


LBY 


EQU 


$4FC 


;0ctet de poids faible de l'ordonn6e retourn^e par 


22 








:1a souris (voir aussi HBY) 


23 


READ 


EQU 


$14 


:Transf£re les donn^es en cours de la souris 


24 








:vers les trous d'ecran 


25 


SERVE 


EQU 


$13 


;D£tecte si la souris a caus6 1 ' interruption 


26 


SET 


EQU 


$12 


; Initialise la souris avec le mode ad£quat 


27 


* 






28 




ORG 


$60D8 




29 


ft 








38 


# 








39 


* 








40 


* Sous 


programme | 


INTERUP 


41 
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42 


41 






43 


H 






44 


INTERUP 

1 1 1 A I—I X \ V J. 


EQU 

J_l \J£ KJ 




45 




SEI 




46 








47 




PHA 




48 




PHX 




49 




PHY 




50 


it 






51 




LDY 


f SERVE 


52 




JSR 


CALLCARD 


53 




BCC 


CLICK 


54 








55 




JHP 


RET. INT 


56 


CLICK 




f READ 


57 




JSP 


CALLCARD 


5B 


K 






59 




LDA 


ETAT 


60 




ASL 




61 








62 




BCS 


DOWN 


63 




JMP 


UP 


64 


DOWN 


ASL 




65 








66 




BCC 


D,BEF 


67 




JMP 


UP. BEF 


63 








69 


# 


: Enf once" Cmai 


70 








71 


D BEF 


JSR 


BELL 


72 




NOP 




73 




NOP 




74 




NOP 




75 




JHP 


RET, INT 


76 


M 






77 


UP 


ASL 




78 




BCS 


DOWN, BEF 


79 


ft 






30 


* Gas 


: Re 1 ache Cmai 


81 


* 






82 




NOP 




83 




NOP 




84 




NOP 




85 




JMP 


RET, INT 


86 


* 






87 


n WOLD 


! Re" 


ach£ (mai 


98 








89 


DOWN . BEF 


JSR 


BELL 


90 




NOP 




91 




NOP 




92 




NOP 




93 




JMP 


RET, INT 


94 


* 






95 


K C*S 


: Enfonc£ Cmai 



;On interdit les interruptions 

;Sauvegarde 
; . , »du 
;contexte 

Offset de SERVEMOUSE 

Si C = 1 f )a sour is n'est pas la cause de 
1 ' interrupt ion 

;Qffset de READMOUSE 



;Etat du bouton et des interruptions 
;Test du bit 7 pour savoir si le bouton est 
; enf once (pr£sentement » U , dis-donc !) 
;C ■ si relache" ou 1 si enfonc£ 

;Le click est enfonce" , mais t'6tait-M la fois 
;pr£c6dente ? (id est la question !) 
;C = si relache" ou i si enfonce" 



;et bye-bye 

;Test du bit 6 pour savoir s' i I l'6tait auparavant 
;C = si relache" ou 1 si enfonce" 



;et retour 



;Retour d' interrupt ion 
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96 












97 


UP . BBF 


inn 

JSR 


TV T7> r T 

BELL 






no 












9V 




NOP 








inn 




NUP 








1 U 1 




Jnr 


Hti » iNl 






1 no 
I u c 


* 










103 


RET, INT 


PLY 




Restauration 




104 




PLX 




. * .du 




4 n c 

105 




PLA 




contexte 




lUb 




CLI 




Retablit les 


interruptions 


1 U f 




RTI 




- , ,et retour 


d' interrupt ion 


*. 1*1 Q 

lUo 


* 












* 










tin 
1 1 u 


* 


de param$tres 




111 
























* 










I 1 1 

I I o 


CDL4Q 


HEX 


00 ; Memorise 1'abcisse modulo 40 


1 14 


FACTEUR 


HEX 


070F ;Facteur 07 pour X et OF pour Y 


lib 


MEM DRV 


HEX 


00 ; Memorise le 


caract^re £cras£ par ie pointeur 


116 


QUOT 


HEX 


0000 :M6moire des 


nouvelles abcisses et ordonn£es 


117 


QUOTX 


HEX 


00 ;R£sultat de 


la division des coord, pour X 


118 


QUQTY 


HEX 


00 ;R£sul tat de 


la division des coord, pour Y 


4 4 Q 

1 IV 












1ZU 


* 




















1Z^ 






















1 












124 


LIMITES 


LDA 


f$00 






4 DC 

125 




STA 


$478 


: ... LB de la 


lim. inf. 


126 




STA 


$578 


;...HB de la 


lim, inf, 


127 




LDA 


JE$2F 






128 




STA 


$4F8 


! ... LB de la 


1 im. sup , 


129 




LDA 


£$02 






130 




STA 


$5F8 


; . . .HB de la 


lim. sup . 


131 




LDA 


£$00 


;Modi f icat ion 


des limites de l'abcisse 


132 




LDY 


£CLAMP 


[Offset de CLAHPMOUSE 


133 




JSR 


CALLCARD 


i • • • 




134 


* 










1 3d 




LDA 


£$00 






136 




STA 


$478 


; . . .LB de la 


I im. inf , 


4 <n 
1 J / 




STA 


$578 


i.,.HB de la 


lim. inf. 


4 ID 

13o 




LDA 


£$67 






4 on 

1 3V 




STA 


$4F8 


; . . .LB de la 


lim. sup. 


140 




LDA 


£$01 






141 




STA 


$5F8 


; . . . HB de la 


lim. sup. 


142 




LDA 


£$01 


; Modi f icat ion 


des limites de l/ordonn£e 


143 




LDY 


£ CLAMP 


; Offset de CLAHPMOUSE 


144 




JSR 


CALLCARD 






145 




LDY 


£READ 


[Offset de READMOUSE 


146 




JSR 


CALLCARD 






147 




RTS 




;Retour d'appel 


148 


M 










149 


M 
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150 












151 






























152 


* 














153 


NEWCOORD 


LDA 


LBX 




161 


LDA 


LBY 


154 




STA 


LB 




162 


STA 


LB 


155 




LDA 


HBX 




163 


LDA 


HBY 


156 




STA 


hb 




164 


STA 


HB 


157 




LDX 


£$00 




165 


I NX 




158 




J S3? 


REDUIT 




166 


JSR 


REDUIT 


159 




STA 


QUOTX 




167 


STA 


QUOTY 


160 


M 








168 


RTS 




169 


# 














170 


* 














171 




(Reduction 


des 


coordonn^es pour permettre une 


172 








correcte de la Souris k 


1 '6cran> 


X 




excursi on 


173 


tf 














174 


REDUIT 


LDY 


£$08 




185 


SBC 


FACTEUR.X 


175 




STZ 


QUOT,X 




186 


BRA 


ENCORE 


176 




LDA 


HB 




187 AJOUTE 


ADC 


FACTEUR,X 


177 




SEC 






188 ENCORE 


DEY 




178 




SBC 


FACTEUR.X 




189 


BNE 


LOOP 


179 


LOOP 


PHP 






190 


BCS 


DERNIER 


180 




ROL 


QUOT,X 




191 


ADC 


FACTEUR,X 


161 




ASL 


LB 




192 


CLC 




182 




ROL 






193 DERNIER 


ROL 


QUOT,X 


183 




PLP 






194 


LDA 


GU0T,X 


184 




BCC 


AJOUTE 




195 


RTS 





Si vous ne 


60D8: 


78 


48 


DA 


5A 


AO 


13 


20 


34 




















possedez pas 
d'assembleur, 


60EG: 


60 


90 


3 


4C 


IE 


61 


AO 


14 


20 


34 


60 


AD 


7C 


07 


OA 


B0 




60FO : 


03 


4C 


03 


61 


DA 


90 


03 


4C 




61 


20 


3A 


FF 


EA 


EA 


EA 




contentez-vous 


6100 : 


4C 


IE 


61 


OA 


B0 


06 


EA 




EA 


4C 


IE 


61 


20 


3A 


FF 


EA 




de toper ces 


6110: 


EA 


EA 


4C 


IE 


61 


20 


3A 


FF 


EA 


EA 


EA 


4C 


IE 


61 


7A 


FA 




codes. La valeur 


6120 i 


68 


58 


40 


00 


07 


OF 


00 


00 


00 


00 


00 


A9 


00 


8D 


78 


04 




indiquee a la fin 


6130: 


JO 


78 


05 


A? 


2F 


3D 


F8 


04 


A9 


02 


8D 


F8 


05 


A9 


00 


AO 




de chaque ligne 
permet de 


6140 : 


17 


20 


34 


60 


A9 


00 


9D 


78 


04 


9D 


78 


05 


A9 


67 


3D 


F8 




6150: 


4 


A9 


01 


8D 


F8 


05 


A? 


01 


AO 


17 


20 


34 


60 


AO 


14 


20 




controler 


6160 s 


34 


60 


60 


AD 


7C 


04 


85 


19 


AD 


7C 


05 


85 


1A 


A2 





20 




('exactitude de 


6170; 


37 


61 


8D 


29 


63 


AD 


FC 


04 


85 


19 


AD 


FC 


05 


35 


1A 


E8 




la saesie (en 


6180 : 


20 


37 


61 


8D 


2A 


61 


60 


AO 


08 


9E 


27 


61 


A5 


1A 


38 


FD 




utilisant not re 


6190: 


24 


61 


08 


3E 


27 


61 


06 


19 


2A 


28 


90 


05 


FD 


24 


61 


80 




disquette 


61A0 : 


3 


7D 


24 


61 


88 


DO 


EB 


B0 


04 


7D 


24 


61 


18 


3E 


27 


61 




SIGNATURE). 


61B0 : 


BD 


27 


61 


60 





























COMPLETES 

VOTRE 

COLLECTION 



Le premier des articles de cetfe serie a paru dans le numero 13 de TREMPUN MICRO, 

Pour commander les numeros qui vous manquent, 
utilisez le bulletin insert a la fin de la revue. 

Notez que les disquettes TREMPUN MICRO reprennent tous les programmes publies 
dans le magazine (y compris certains sources trap longs pour paraitre dons la revue). 



TREMPUN MICRO 




TRAITEMENT 



Quand on a la bonne habitude de Iravailler avec un traitement de texte aussi simple et convivial que 
GRIBOUILLE, EPISTOLE... ou APPLE WRITER (I'un des plus connus dans I'univers Apple), il n'est pas 
toujours facile de s'adapter aux logiciels fonctionnant sur IBM PC et compatibles. Plaignons lectrices 
et lecteurs que leurs occupations obligent pourtant a accomplir cette petite gymnastique. 



CLAVIER Cote clavier, constotons que nous ne 
sommes pas particulierement gates 
avec nos Apple //. Une seule "bete" est enfin dotee 
d'un clavier digne de ce nam : le GS. Ce n'est pas le 
summum du contort, mais cela vaut bien les "acces- 
soires" qui equipent bon nombre de compatibles. II 
est vrai que nous sommes loges a la meme enseigne 
avec ('Apple He Disons que, malheureusement, le 
clavier reste trap souvent le point foible des ordina- 
teurs personnels qui se veulent par ailleurs des 
machines de traitement de texte. Bien_ mais le cla- 
vier, aussi mauvais soit-il, on $'y fait. L'bomme 
s'adapte a tout, y compris au pire, pas vrai ? 

COMM ANDES II en va outrement pour les com- 
mandes. Ah ! fes commandes ! 
L r absence de touches de fonction fait que, sur Apple, 
tout traitement de texte prend immediatement des 
allures de langue etrangere. Et on sait que les Fran- 
cois ne sent pas tellement doues pour "causer" dans 
une autre langue que la leur. Neanmoins, de logiciel 
en logiciel, nous avons pris I'habitude de jongler avec 
les controles-ceci-cela, puis avec les Pommes (ouver- 
tes ou fermees), sans oublier la touche Escape, 6 com- 
bien sollicifee ! 

SOURIS Certains d'entre nous sont tellement 
attaches a ce systeme qu'ils se refu- 
sent a caresser la souris, remede 6 tous les maux dont 
souffraient les premiers traitements de texte, Et c f est 
vrai que I'usage de la souris — prolongement naturel 
de la pensee ? — pose parfois plus de problemes qu'il 
n'en resout : essayez plutot de taquiner il'animol sur 
un bureau encombre * II en va de meme pour les 
menus dits deroulants et pour ces multiples fenefres, 
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agreables a la vue, mais dont Touverture et la ferme- 
ture peuvent se reveler fastidieuses. 

LIDEAL Alors, existe-t-il un traitement de 
texte ideal ? Bien sur que oui : le 
votre, et uniquement celui-ci, Vous Tavez elu pour des 
raisons qui vous sont personnelles et vous tenez a lui 
parce qu'il tient lui-meme ses promesses, II n'y a rien 
d ojouter. Je connais des inconditionnels d' Apple Wri- 
ter pour lesquels tout le reste n est que pale copie, 

Reste que — profession oblige — ces memes person- 
nes se retrouvent parfois (je crois pouvoir ecrire "sou- 
vent") devant le clavier d'un IBM ou d'un compatible 
(que cet autre univers est done complique !), et obli- 
ges de "faire avec ce qu'on leur donne", Vous savez 
aussi bien que moi que, dans une administration 
(mais ce n'est pas different dans les petites, moyen- 
nes et grandes entreprises), les documentations sont 
generalement introuvables. II y a toujours un Pierre 
ou une Brigitte qui l'a provisoirement emportee a la 
maison afin de I'etudier a tete reposee : c,a vous 
classe quelqu'un, non ? 

Et e'est a ce moment-la que Ton apprecie ia convivialite 
des logiciels connus pour Apple. On s'aper^oit alors 
que les traitements de texte les plus simples ne sont 
pas forcement les plus difficiles a mettre en ceuvre. 
Tenez, rien que pour le plaisir, j'en ai teste trois et je 
vous livre mes reflexions en vrac. Je vous signole au 
passage que mon* compatible (un DONATEC) est 
equipe d'une tres belle imprimante EPSON LQ 2500, 
malheureusement affltgee d'un defaut de jeunesse : 
trouver des rubans pour en faire reellement une impri- 
mante operationnelle releve du tour de force. 
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• PHILOTEXTE JUNIOR (Editions Dortec) 

Philotexte Junior est diffuse par le Reseou Planetaire 
qui Connonce comme le moins cher des traitements de 
textes professionnels sur PC (quelques billets de cent 
francs). 

Le manuel d'utilrsation (80 pages) est evidemment en 
fran^ais. II comporte un double index ; mots-clefs ef 
touches, ce qui consritue une bonne idee et facilite 
grandement la recherche. Faut-il pour autant negliger 
la lecture de cette bonne documentation ? Surement 
pas, Cest le meilleur moyen de savoir ou Ton va et 
surtout comment y alien., et en sortir I 

Pour le reste Philotexte Jr n'a pas grand-chose a 
envier aux autres traitements de texte de sa catego- 
rie et il supporte meme la comparaison avec des logi- 
ciels plus ambitieux, Qu'on en juge ; 

— Copie et deplacement de blocs de texte a tlnte- 
rieur d'un document ou encore de document a 
document ; 

— Recherche et remplacement automatique ; 

— Travail simultane sur deux textes avec fenetrage 
d'ecran ; 

— Tous types de justification et de formatage avec 
utilisation des possibility typographiques de 
Timprimante ; 

— En-tetes et notes de bas de page, tables d J index, 
sornmaires,., 

Ajoutons que neuf ecrans d'aide detaillee sent dispo- 
nrbles a tout moment. 

Le programme depression passe par un fichier 
"texte-regle" avec lequel il convient de se familiari- 
ses On peut en effet utiliser le meme texte-regle 
pour I'editeur et pour llmpression, mais il est souvent 
plus pratique de concevoir des versions specifies 
pour I'un et I'autre de ces usages. 

Philotexte Jr constitue une excellente initiation a 
PHILOTEXTE If (la nouvelle version sera disponible 
quand paraitront ces lignes), egalement distribue par 
Je Reseau Planetaire, mais plus complet (et aussi plus 
cher r tout en restont tres ban marche). Je ne voudrais 
pas trop vous mettre I'eau a la booche, mais : 

— Un correcteur d'orthographe avec dlcttonnaire de 
100(300 mots ; 

— Mailing avec inclusion conditionnelle d'adresses ; 

— Gestionnaire de bureau (logiciel integre en co- 
resident pour calculs, agenda, notes a la volee...} ; 

£a vous tlasse un traitement de texte, pas vrai ? 

Rhhv PI arvetaira - Raffy Qieyriere* - iW Soim-Jjlien-Chopleuil - Tel. 71.0ft.73.49 



• ALLEGRO (Cedic/Nathon) 

Tres belle boite rouge. Vous me voyez venir ei 
vous pensez dejo que je vais comparer le contenu 
au contenant. Erreur, meme s'il est exact que j'ai 
ete surpris de ne decouvrir dans ce joli coffret 
qu'une brochure de 50 pages... evidemment 
accompagnee d'une disquette. 

Autre surprise : des addenda precisent comment 
effectuer une sauvegarde ou une edition partielle 
du texte et comment creer un texte entierement 
nouveau. On se dit que si le logiciel n'est pas plus 
serieux que sa documentation, on va en etre pour 
ses frais (precision utile : Allegro est reellement 
bon marche, mais ce nest pas une raison suffi- 
sante pour jeter son argent par les fenetres ! ). 

Rassurez-vous : je n'ai rien perdu. D'abord parce 
que cet Allegro m'avait ete confie par le Service 
de Presse de Cedic/Nathan et ensuite parce qu'H 
en vaut beaucoup d'autres. Inutile de revenir sur 
remballage, sinan pour preciser qu'il est inutile ; 
mieux vaudrait une disquette supplemental,,, ou 
une chemise protectrice. Le prix constitue un argu- 
ment de vente suffisant, du moins a mes yeux. 

Lo documentation est certes succincte, mais 
d'une lecture agreable. On constate rapidement 
qu'elle est pratiquement aussi inutile que 
remballage : on retrouve la plupart des explica- 
tions sur la disquette. Sans etre particuliere- 
ment doue, j'ai reussi a copier le logiciel sur dis- 
que dur, a lancer le programme et a imprimer 
mon premier texte en moins d'une heure. 
J'ajoute que ce texte etait le listage d'une rou- 
tine en Basic, repris en traitement de texte. 



Allegro, traitement de texte en fran^ais, se revele 
d la fois simple et rapide, meme si I'on peut contes- 
ter la maniere dont sont utilisees les touches de 
fonction (au debut, e'est assez deroutant, mais on 
s'y habitue tres vite). II est bon de lire les 50 pages 
de la documentation pour avoir immediatement 
une vue d'ensemble des possibility offertes par le 
logiciel, mais il est plus pratique, en cours d'utilisa- 
tion, de fair© appel a la fonction d'aide. 

J'ai note que les fonctions les plus attendues sont 
bien presentes : pagination, justification, recon- 
naissance de paragraphes r alignement sur la vir- 
gule decimale, fusion de textes, realisation dun 
index, importation defichiers. 

C*dic/Nothdn P 6 bd Jourdan — 75014 PARfS — Tel. (1) 45.65.06,06. 
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• NA THALIE 2 PLUS (ebp informatique) 

Nombreuses ressemblonces ovec le PCWrite ame- 
ricain,., et pour cause ! Cette version franchise a 
ete baptisee NATHALIE par EBP Informatique, mais 
le Reseau Planetaire en diffuse une autre sous le 
nom de PHILQTEXTE II (lire page precedente),,. 
avec un dictionnaire de 100000 mots. Celui de 
NATHALIE n'en compte que 50000 (mais sans 
doute 70008 au moment ou vous lisez ces lignes, et 
ovec un certain nombre d'ameliorations), 

fl s'agit Id d'un traitement de texte professionnel, 
□mbitieux (possibility d'utiliser une rmprimonte de 
type LaserJet, mais je ne m'y suis pas risque), et pas 
aussi facile b utiliser — des que I'on sort des com- 
mandes classiques — que le souhaiterait sans 
doute I'uscger moyen. 

La documentation est en francos et je monquerais 
d'objectiviie si je la considerais comme "mince" ou 
"incomplete '. II lui manque pourtant quelque chose 

mamammmmmmmmmmmmmmmmmmmmmmsammmmmmammmmmmmmmmmmi 
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puisqu'il m'est assez souvent arrive de me poser des 
questions, notamment a propos des problemes de 
mise en page et depression. 

Ceci dit, NATHALIE est un traitement de texte auto- 
documents comme bon nombre de logiciels concur- 
rents d'ailleurs. L'utilisateur moyen maitrisera parfoi- 
tement la plupart des commandes classiques en quel- 
ques heures, et en particulier cedes permettant 
d'obtenir les menus d'aide. 

S'il s'agit seulement de taper une tettre, un rapport, 
pas de probleme : le Redacteur est aussi convivial que 
beaucoup d'autres, II tire un bon parti des touches de 
fonction des IBM et compatibles. Creer un texte, le 
corriger et le sauver s'accomplit sans douleur. L'im- 
pression coule de source. 

Le dictionnaire 

NATHALIE permet de controler, en temps reel, le 
dernier mot tape : un bip retentit si le dictionnaire 
n'en connalt pas I'orthographe... ce qui est assez fre- 
quent. II est necessaire de lire attentivement le mode 
d'emploi du correcteur pour bien savoir au Ton met 
les pieds. C'est un ouftl interessant, un plus incontes- 
table, mais on peut etre pour ou contre son utilisa- 
tion. On ne saurait le considerer comme un juge 
irfaillible. 

Personnellement, je recommanderais surtout son uti- 
lisation aux personnes ayant a taper de nombreux 
termes techniques. Naturellement elles devraient 
d'abord creer leur propre dictionnaire, mais pour- 
raient ensuite I'enrichir au fur et a mesure de la 
decouverte de mots nouveaux. 



L impression 

NATHALIE reconnait un nombre important d'impri- 
mantes (y compris les plus recentes). Un apprentis- 
sage s'impose avant d'etre en mesure de realiser des 
impressions complexes. N'etant pas un specialiste de 
la question, je suppose qu'il en va de meme pour la 
plupart des "imprimeurs". Nous nous heurtons aux 
memes difficultes en photocomposition, des diffkul* 
tes que quelques jours de pratique font oublier ! 

Si je devais commercialiser un logiciel de traitement 
de texte, j msisterais davantage sur les problemes de 
formatage et d'impression. Les documentations 
actuelles, meme correctes (ce qui est le cas de celle 
de NATHALIE) sont a mes yeux insuffisantes. 

EJ.P„ 55 c Rue de Port Royal 78470 ST-REMY-IES CHEVREUSE 
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Yvan KOENIG 

repond a nos lecteurs 



Questions : Pouvez-vous m'aider a resoudre quelques 
pefits problemes carje seche lamentablement 

• PROBLEME N°l 

II se situe sur la disquette SIGNATURE, face 2 (ver- 
sion ProDOS). La disquette utilise le ProDOS LI et 
man Apple utilise la version L0. Comment rendre 
compatible mon Apple et la disquette SIGNA JURE ? 

• PROBLEME N°2 

fl concerne le programme "TREIZE" (TREMPUN 

MICRO N°10). Apres quelques changements (ajout 

de 500 mots f j'ai bien dit 500, et pas un de plus ! } il 

y a des problemes avec ce mini dico. Apres avoir 

modifie ainsi la ligne } 10 ; 

1 10 HOME:NM=50G au lieu de 

110 HOME:NM=7, le programme se plante sur 

deux lignes : 

485 V=PEEK(768): IF V=NM OR NOT V THEN 
POKE 768, 1 : POKE 769, CH : GOTO 500 

495 NEXT: POKE 769 + V, CH: POKE 768 t V+ 1 

Comment modifier ces deux lignes ? Sinon cest I'iLLE- 
GAL QUANTITY ERROR qui m'attend. 

• PROBLEME N°3 

Comment ecrire en HGR, et en grand format (le meme 
que celui des leftres) un compte a rebours quipartirait 
de 45 et finirait a ? m.t. (?so20 paris) 



Ce n'est pas votre APPLE, mais VOUS qui utili- 
sez ProDOS 1.0. Demandez 6 votre distribu- 
tee habituel de vous faire une mise a niveau 
PRODOS 2.Q, BASIC.SYSTEM 1-1 et tout ira 
bien, Enfin presque ! II faudra en effet suppri* 
mer la ligne qui contrdle PRODOS (30 si je ne 
m'abuse). Seul le test sur BASIC.SYSTEM est 
utile. Vous trouverez quelques amenage- 
ments a SIGNATURE dans ce numero de 
Trempiin, page 37. 

Pour faire un POKE, il faut que la valeur a 
poker soit inferieure a 256. Puisque vous utili- 
se! 500 mots, vous etes en infraction car la 
ligne 480 definit la valeur a poker (CH) en 
fonction de ce nombre de mots* Limite pour 
NM : 255 maxi, mois comme on stocke les 
numeros des mots deja employes en page 3, il 



I g | ne faut pas depasser $3D0 sous peine d'un 
plantage du systeme. Cela limite en fait NM a 
206... Si ces limitations vous chagrinent, ree- 
crivez la routine 480*520 pour traiter des 
numeros sur 2 octets et ptacez la table en par- 
tie haute de la memoire. 

Pour faire un compte a rebours je vous 
suggere : 

1000 for TIME = 45 to STEP - 1 
1010 CH$ = right$( , W"+str$(TfME),2) 
1020 N = asc(left$(CH$,l)) - 64: draw N at 

X,Y 

1030 N = asc(right$(CH$,l)) - 64: draw N at 
X + 21,Y 

1040 tor I = 1 to 100 : next (a vous d J aj Lister) 
1050 next : return 

Bien entendu, je suppose que vous avez initia- 
lise le mode graphique, charge la table de for- 
mes et defini X et Y pour positionner votre 
affichage. 



Question : Je suis dans un club informatique ou, 
pour des raisons pratiques, je laisse mo disquette 
de Basic (sous DOS 3.3} sur place, J'ai constate, la 
semaine derniere, que plusieurs de mes program- 
mes avaient ete modifies a mon insu. Je voudrais 
done proteger ma disquette, en Basic de prefe- 
rence, pour eviter ces surprises. J'ai con$u un pro- 
gramme f, Hello" qui demande un code a I'ufilisa* 
teur t lequel code n'est connu que par mo'L Si celui-ci 
est exact /e catalogue arrive a I'ecran, sinon le 
systeme est relance, J'ai protege le programme 
contre "cantrdle-reset" et "contrdle-C" par ; 

POKE 1010,0: POKE 1011,3: POKE 1012,166: POKE 
768, 76: POKE 769, 0: POKE 770 1 3 

Malheureusement, en chargeant le DOS avec une 
disquette systeme, puis en la remplacant par la 
mienne, on peat acceder a toutes mes routines. II 
y a aussi le POKE 214, 128 qui ne me convient 
guere car il m'interdit egalement le Ustage de 
mes propres programmes. 

Je vous lance done un 5,0,5, en vous precisant que 
je possede un Apple He 128 Ko. 



La defunte revue GOLDEN avait publie dans 
son numero 16, sous la signature de Ph. 
GUIOCHON, GOLDCRYPTOR qui repondrait 
a votre demande sous DOS 3.3. POM'S pro- 
pose, dans son numero 29... (suite page 64) 
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le programme KRUPTOS qui fait le meme 
genre de manipulation sous ProDOS. 



Question : faimerais sovoir comment creer un 
fichier de type SYSTEM et comment transformer un 
fichier BINAIRE en fichier SYSTEM, faimerais le 
savoir pour pouvoir boater directement un pro- 
gramme de communication de type BIN sans avoir a 
passer par le BASIC.SYSTEM. Je peux loader un pro* 
gramme SYSTEM en langage machine en entrant la 
commande suivante : 

BIO AD nam, T$Y$ f A$xxx, L$xxx 

II me "load" le programme a I'adresse indiquee, et 
je peux done modifier un programme SYSTEM, mais 
je n'arrive pas a la "resaver" en type SYS. J'ai bien 
essaye la commande : 

B$AVEnom f T5YS, A$xxx, L$xxx 

mais tl me fait une erreur en me disant : NOT A 

TYPE SYS FILE. Anthony 8. {93600 A ULNA Y sous BOiS) 



Votre question appelle une reponse simple. 
ProDOS — en fait, BASIC, SYSTEM — ne sait 
creer de maniere automatique qu f un petit 
nombre de types de fichiers. Ce sont les types 
BAS, BIN et TXT. Ne pleurez pas : les 253 
autres types sont tout a fait accessibles. lis 
requierent simplement votre intervention. 

II faut creer le fichier avant de pouvoir le sau- 
ver, exactement comme lorsque vous creez un 
"sous-catalogue". Dons voire cas P il faudra 
faire : 

CREATE truc.SYSTEMJSYS (slot drive even- 
fuels) 

BSAVE truc.SYSTEMJ$YS,A$20Q0,L$xxxx 

Vous aviez en fait la reponse dans SLOADC 
{Tremplin Micro n°ll) ou je CREATEais un 
fichier de type $F1 pour I'ecran compacte. 



Questions i* Est-il possible qu'un fichier "exec" 
puisse ouvrir un fichier "TEXT" pour le travatller ? Si 
oui t pouvez-vous me donner un exemple (mes 
essais n'obouttssent qu'a un "NO DIRECT COM- 
MAND"), 

* A quoi serf ^instruction "FLUSH" et quelle est son 
utilite ? 

* Pourriez-vous dire un mot sur les fichiers dits 
"Relogeables" ? 

* Et pour terminer, a corriger dans T.M. n°13 : 



"Brico" en 930 remplacer "IF LO< =0" par IF LA 
<-Q" et en J 100 V = {{{0/2} * 2) * PI) * tf£ 

Deal* fi, (2S1 10 BAUME LBS DAMES) 



ProDOS ou, pour etre plus exact, 
BASIC. SYSTEM contient une table ou sont sfo- 
ckees des paires d'octets determinant les 
regies de forcctionnement de cbaque 
commande, 

^interpretation de ces octets se fait comme 
suit, bit par bit en partant du bit 8 : 

octet 1 PFIX % 10000000 prefixeattendu, pathname optionnel 

SLOT % 1 00 00 00 numslot seul (PR£ ou IN£] 

RRUN % 00100000 commande differee 

FNOPT % 0001 0000 nam de fichier optionnel 

CRFLG % 00 00 10 00 creation de fichier autorisee 

T % 00 0001 00 type fichier autorise 

FN2 % 00 00 00 10 Ptitreattendu |rename( 

FN I % 00 00 00 01 titrea.tendu 



octet2 AD % 10000000 Adre&se autorisee 

B % 01 00 00 00 Byte au+orise 

E % 00 10 00 00 End outorlse 

L % 00 01 00 00 Longueur autorisee 

LINE % 00 00 1 00 [a) nurnligne outorlse 

SD % 0000 01 00 Slot/ Drive autorises 

F % 00 00 00 10 Field autorise 

B % 00 000001 Record autorise 

V % 00 00 00 00 V toujou, ) autorise est ignore 

Pour OPEN et APPEND le l er octet est $2D 
(%00101101) tandis que pour READ et WRITE 
il est de $21 (%00100001). Je vous laisse (aire 
['analyse complete mais vous pouvez consta- 
ter que le bit 6 est a 1 dans tous les cas ce qui 
interdit I'emploi de ces cornmandes en mode 
direct. Faire $B93F et $B955:0D, $B941 et 
$B953:01 supprimerait cette interdiction mais 
ce serait A VOS RISQUES ET PERILS. 
Je vous rappelle que lorsque vous etes dans 
un fichier EXEC, tout se passe comme si vous 
etiez en mode direct. Attention, la routine 
INPUT n'est pas evidenle a employer en mode 
direct (cf. Tremplin Micro n°9). 
FLUSH provoque le transfert sur disque de tou- 
tes les zones tampon allouees aux fichiers 
prealablement ouverts. Si I'option "tit re" est 
utilisee, seule la zone tampon du fichier speci- 
fie est transferee. Tout se passe comme pour 
la commande CLOSE a ceci pres que les 
fichiers restent ouverts et que les pointeurs de 
fichiers ne sont pas alteres. 
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La commande FLUSH est tres utile afin de pre- 
server hntegrite des donnees sur disque. Un 
programme qui risque d'etre interrompu acci- 
denfellement doit regulierement utiliser la 
cornmande FLUSH de fagon a perdre le moins 
de donnees possible en cas d'interruption. 

Cette definition est reprise du fascicule 
Addendum oux TRAVAUX PRATIQUES APPLE- 
SOFT la programmafion en Basic avec ProDOS 
qui est (ivree avec le drsque OFFICIEL ProDOS. 

Je suppose que votre 3 e question porte sur les 
fichiers de type REL, Ce sont des fichiers qui 
comportent non seulement le code actif, mais 
aussi un ensemble d'informations qui permet- 
tra de les employer sans contrainte d'adresse, 
ils seront ajustes par le "loader" en fonction 
de leur implantalion effective, Ils sont gene- 
res par I'assembleur EDASM d'APPLE, MER- 
LIN. PRO genere pour sa part des fichiers RELo- 
geables de structure et d'ufilisation diffe- 
rente, MINIE et le BUREAU de MINIE sont des 
assemblages de fichiers de type REL MERLIN. 

Merci pour vos remarques sur BRICO. 



Question : Je suis possesseur d'un He version 65C02 
et d'vne imprimante IMAGEWRITER II avec interface 
super-serial. Je voudrais utiliser les programmes 
parus dans TM n°6 permettant de charger des poli- 
ces de caracteres et pouvoir m'en servir avec des 
traitements de texte genre APPLEWORKS. En utili- 
sant CARACCHARG je parviens d les charger et a 
les imprimer, mais malheureusement je ne trouve 
pas la "combine" pour utiliser les trois qualites 
d'impression de I'iWII. Je ne peux imprimer qu'en 
quatite brouillon. Jtm-Louito. (C6604 antibes c&d&x) 



Une fois encore, voici un lecteur confronts a 
un mauvais fonctionnement du circuit de dis- 
tribution APPLE. 

Les manuels de references techniques ne sont 
pas publics par APPLE (TVA lfi,60%) mais par 
un editeur, INTEREDITION5 18 av. du Maine 
75014 PARIS (TVA7%). 

Cette formule [udicieuse s'accompagne helas 
d'effets pervers. Ces manuels sont pratique- 
ment absents des rayons des "distributeurs 
agrees" (problemes de marge ?). De plus, j'ai 
pu constater a plusieurs reprises que 
lorsqu'un utilisateur a des problemes, on ne 



lui signale meme pas ('existence de ces docu- 
ments. Lorsque le numero 15 de Tremplin 
Micro sera paru, il est probable que la version 
franchise du "TECHNICAL REFERENCE 
MANUAL IMW//" sera disponible. 

La reponse a votre question est simple, 
lorsqu'on lui demande d'imprimer des carac- 
teres personnalises, I'lW// passe automati- 
quement dans le mode STANDARD (le mode 
intermediate, voyant de droite alliime). Ef le 
se remet dans le mode ou elle etait au debut 
des que vous quittez les caracteres 
personnalises. 

Si vous souhaitez vous rapprocher de la den 
site d'impression du mode quasi-courrier, pas 
sez en mode gras chaque fois que vous appe 
lez les personnalises, J'envoie pour ma par 
systematiquement la sequence ESC ' ESC 
pour appeler, et ESC " ESC S pour quitter les 
caracteres personnalises. 



Question : Je vous ecris pour un petit renseigne- 
ment t le troisieme depuis votre naissance ! 
Si je vous dis : [ DA £$30 

LDY £$\0 

JSR $3D9 

Vous me repondez routine RWTS avec I'adresse de 

IO.B. D'accord ? 

Poisons un tour a I'adresse : 

310 : 01 60 01 00 11 ; je connais la signification. 
MAIS,.. 

00 91 03 00 95 00 Q0 ~ 

01 0000 6001 00 ?AIE 
01 EFD800 

Cette routine est tres utilisee ef je m'etonne que 
vous n'ayez pas encore donne la signification de la 
table des parametres. Je suis sur que les lecteurs 
seraienf contents den saisir le sens, 
T.M. n°l page 5 (nombre de secteurs litres) un petit 
bug... supprimer de $371 a $375 JSR $ED24 et ga 
fonctionne. Didi*r m. (72100 le mans) 

I ft 1 Non : il n f y a pas de bug dans la routine que 
J vous signalez. Son auteur a choisi d'imprimer 
un "Carriage Return" (retour chariot $0D) 
apres le nombre de secteurs. Vous preferez 
ne pas en mettre, c'est votre droit mais le 
choix de I'auteur etait tout a fait respectable. 
JSR $ED24 execute la routine ASOFT implan- 
tee a cette adresse. . . (suite page 66) 
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6 savoir LINPRT qui imprime en decimal 
I'entier dont I'octet bas est dans (X) et I'octet 
haut dans (A). 

En ce qui concerne la RWTS, je ne suis pas sur 
que Tremplin Micro n'aie pas dejd publie les 
infos demandees. Enfin, allons-y ! Desassem- 
blons une table RWTS, celle contenue dans 
DOS 3.3 par exemple : 

org $B7E0 



TBLTYPE 


hex 


01 


IOB type 


SNUMI6 

JM will IV 


dib 


6*16 


num slot * 16 




no. v 


01 


num lecteur 


VOIFXPT 


■h p y 

1 ITT A 


FF 


num volume attendu 




• ~ 


K 


num piste 


SNUM 


h@x 


88 


num secteur 




da 


DCTTBL adresse de la table DQ 


USRBUF 


da 


$9600 


adresse du buffer lecture 


BYTCNT 


dw 


$100 


nombre d'octets par sedeur 


CMDCOOE 


hex 


02 


code de la commande 








00 positionne la tete 01 lecture 








02 ecriture 04 format 


ERRCODE 


hex 


07 


code d'erreur 


VOLFND 


hex 


FE 


n° de volume du dernier acces 


5L0TFND 


dib 


6*16 


n° de slot 


DRVFND 


hex 


01 


n° de lecteur 




hex 


00,00 


opparemment inutilises 


DCTTBL 


hex 




code du peripherique (0 pour lec- 








teur 5") 




hex 


01 


phase par piste (1 obligotoire] 




hex 


EF,D8 


compters pour mise en route du 








moteur (valeurs intouehables) 



Question ; Ayonf eu a ma disposition un APPLE He 
pendant un bon bout de temps, je m'etais achete 
plusieurs logiciels, Maintenont, jepossede un licet 
plusieurs de ces logiciels refusent de demarrer nor* 
malement, II poraitroit que ceci est du a un octet qui 
est teste o cheque demarrage* On m'a parle du 
$C6QQ. Une solution serait possible en deplagant le 
programme BOOT qui est implante dons cette partie 
de la memoire... 

Malgre pas mal de tentatives, je n'arrive absolu- 
mentpas a foire tournerces logiciels, Pourriei-vous 

m 'aider ? Gtrard C (7$960 VOiSlNS h BRETONNEUX) 



Apparemment voire He ignore aussi ou pren- 
dre le timbre demande pour la reponse. 



rjj~] tueux, je ne pense pas que vos problernes 
viennent de la ROM de boot. 
Si vous reussissez a deplacer un programme 
inscrit dans les ROMs de la machine, faites* 
moi signe : vous aurez gagne un rayon de 
soleil !... 

Si vous aviez pris la precaution de me fournir 
les titres des programmes capricieux, j'aurais 
peut-etre pu vous renseigner, mais pour I'ins- 
tant : impossible ! 

Etes-vous sur qu'il ne s'agit pas de logiciels 
tournant sous CPM et qui pouvaient done fonc- 
tionner sur un He equipe d'une carte Z80 ? 

Je connais quelques logiciels qui plantenf sur 
le lie, mais ga n'a rien a voir avec la ROM de 
boot. Cest en general parce qu'ils sont prote- 
ges en utilisant une "singulorite" du 6502 qui 
n'existe pas sur le 65C02 equipant le He et le 
He nouveau. Pour savoir a quoi vous en tenir, 
essayez les programmes en question sur un 
He nouvelles roms. S'ils plantent e'est proba- 
blement a cause de cela (a mains bien 
entendu que ce soient des programmes CPM), 

NDLR ; G4rord G est peut-etre — tout ^implement — an 
petit moff ft qui cherche A vtUiser des hgteiets pirates... 



Sauf si vous avez achete un appareil defec* 



DONATEC : 1986, une annee "DEM0N1AQUE" 

Pour so troisieme annee d existence, DONATEC constructed fran- 
tais de micro-ardinateurs compatibles et de materiel peripheri- 
ques, confirme sa progression en realisant en 19$6 wtchfffn a'affci- 
mdeSi millions de Francs, soil 70 % d r a ucjmentotion par rap port 6 
lannee precedente, dont le C.A. ^tait de 22.5 MF. En 1984, DONA- 
TEC a vend j 4 000 micro-ofdinateurs. 

Avec de grands changements el un chiffre d'affaires en croissance 
constant©, la sociele" DONATEC evolue tres vite el slmpose d6sor- 
mais sur le morche de la micfo-informatique. En 1966, DONATEC a 
change? de locaux, ouvert un point de vente, augments son capital et 
ses effectifs f et renforce son equipe technique, D64 avec quatre 
persannes. en fevrier 1985- DONATEC en empbie actuellement 
trente. Son capital de depart de 250.000 F attaint aujourd'hui 
2. 250 000 F. Son point de vente ouvert depute le 1" juillet 1986, lui 
sert egalement de show-room et lui permet de conseiller et d orien* 
ter les utilisateurs dans leurs differents choix. 

Apres s'etre lance dans la distribution de produits hauts de gamme 
pour la Publication Assisl^e por Ordinateur. tels le moniteuf MDS 
Genius, Timprimante Kyocera F-lOlO, les logiciels Personnel Publis- 
her et Ventura, et le scanner Microtek, DONATEC poursuit ses 
efforts de couverture des marches. 

La soaete" DONATEC, pf^sente sur le morche OEM, chez les reven- 
deurs et egaSernent aupres des grands comptes (Citroen, Technip r 
Volvo, BMW, Creusol Loire. Ministere de la Defense. Ministers de la 
Cooperation, CNRS, Compagnie Gen^role des Eaux....) par le biais 
de son point de vente, off irme une fois de plus sa vobnte de perfor- 
mance avec un souci permanent de preceder sinon d'accompagner 
les progres de la m icro-inf ormatique. Diable ! ... 
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Question : Comment realiser des copies dun ecran 
qui contienf des caracteres affiches en inverse 
video... en utilisani la routine qui a paru dans le 
cadre du programme Brico de TM n°J3 ? 

M. R. (381 00 GRENOBLE) 

Le remede nne semble simple*, II faut contro- 
ler le caractere lu sur I'ecran avant de I'incor- 
porer a la chaTne generee par la routine. Fai- 
tes BLOAD IMP.LM,A$300, purs passez en 
moniteur par CALL -151. Tapez : 



cad 

OR A £$80 pour forcer ASCII negalif 
CMP £" " 

ACS $351 cen'est pas un controls 

ADC £$40 controle majuscule nor- 
male, vous purriez met* 
tre A9 Afl qui rempface- 
rait le caractere genont 
parun espace. 

STA $6000 ( Y 

RTS 



316 


20 49 


03 


320 


20 49 


ff3 


319 


09 80 




34B 


C9 AO 




34D 


BO 02 




34F 


69 40 





351 
354 



99 00 60 
60 



Retour au Basic par Ctrl C puis, 
NEWIMP,A$300,L$55 



BSAVE 



M* programme MPBQ.IW2 (NOUVtUES ROUTINES POUR if 6SCS2) 
rfyfo 9ft fait Cff problems, ft Imp rim* sn grot ce qui 9ft m inverse sur 
I'tkran mt tfonf egckmeni camp to des curactirvs teurti. 



Questions : La routine de tri en langage machine 
TRL 1.2 de Tremplin Micro n Q ]J (poge 48} se planfe 
magistralement avec EXTRA.VARIABLES de la dis- 
quette EXTRA, PRODOS (programme permettanf 
d'accrottre la memo ire utilisateur a 68 K environ). 
Pourrait-on la hire fourner correctement dans cette 
configuration et dans ce cas queiles modifications 
faudrait-il lut apporter ? 

La commands PRODOS STORE sauve sur disque tou- 
tes les variables du programme en cours. Par quel* 
ques pokes serait-il possible de sauver seulement 
une ou deux variables (dimensionnees) de so 

Choix ? JwPauiT. {93300 AUBERVtlUERS) 



II est tout a fait normal que TRI.l ne fonc- 
tionne pas avec EXTRA.K qui stocke les varia- 
bles en MemAUX. La routine TRU est faite 
pour travailler avec un stockage normal en 
MemPrintipale. 

PROTECT. RAM et AUX.DRAW dans Tremplin 



Micro n°12 et n°13 vous donnent deux formu- 
les pour sauver et recuperer des infos en 
MemAux. En vous inspirant de ces exemples il 
vous serait peut-etre possible de modifier 
TRI.l en liaison avec la methode de stockage 
employee par EXTRA.K, methode que je ne 
connais pas. 

II n'est pas possible de realiser un transfert 
selectif de variables par quelques POKEs. 
Vous pourriez trouver dans NIBBLE EXPRESS 
vol2 un programme de CORNELIS BbNGERS 
qui, sous le titre AMPER STORE and RECALL 
operait la sauvegarde et la recuperation d'un 
tableau numerique (programme repris dans 
HAIFA publie par POM'S), Ecrit sous DOS 3.3, 
ce programme devrait etre remanie pour tra- 
vailler sous ProDOS. II faudrait le placer entre 
ProDOS et ses buffers et changer la methode 
d'envoi des commandes BSAVE et BLOAD. 



Question : fai un probleme que I'arficle de M. Cof- 
tini dans fen 1 2 de TM. n'a pas resolu. Ils'aglt des 
transferts entre memo! re prindpale et memoire 
auxiliaire avec carte 80 colonnes. 
J'ai ecrit une petite routine en Langage Machine 
pour fake des fenetres dans I'ecran 80 colonnes de 
man ifc ou de mon il GS et je voudrais transferer le 
contenu en memoire auxiliaire, par exemple a 
I'adresse $4000. Cela marche tres bien pour ecrire 
en Mem. Aux. en actionnant $C005, en revanche 
impossible de le faire dans I'autre sens, cest-a-dire 
de LIRE en Mem. Aux. par STA $C003 (RAMRD), qui 
est le corollaire de RAMWRT, Pouvez-vous me 
depanner ? 

D'autre part je vous precise que la routine publiee 
dans un des premiers numeros de T.M. pour trans- 
ferer un ecran 80 colonnes en memoire auxiliaire ef 
le rappeler ne fonctionne pas sur le GS (il doit 
s'agir, je pease, des Trous d'ecrans qui n'aiment 
sans doute pas etre "ballottes"}, Enfin, la plupart 
des routines publiees en Langage Machine sont 
donnees a I'adresse $300, lorsquelles sont courtes, 
il existe egalement une autre place en ProDOS, a 
I'adresse $BB4A qui n'est touchee ni par le charge- 
ment d'autres programmes ni par I'ouverture de 
fichiers. J'y mets personnellemenf une routine de 
gestion de !a souris qui s'y trouve tres bien et qui 
n'affecte pas la marche du systeme. 

Piarro G. (42170 ST'JUST-ST'RAMBERT) 



Nous sommes tous des auteurs exterieurs, et 
c'est ce qui garanfit ('independence... (suite page 6&) 
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de Tremplin Micro. PROTECT, RAM et 
AUX, DRAW dans Tremplin Micro n°12etn d 13 
voljs donnent deux forrnules pour sauver et 
recuperer des infos en Mem, Aux. En vous ins- 
pirant de ces exemples, il vous serait peut- 
etre possible de faire fonctionner votre pro- 
grame. Je rappelie simplement que, si vous 
activez le commutateur AUXREAD, vous bas- 
cule! en mode lecture en AUX la memoire 
$200 a $FFFF. C'est pourquoi , dans PRO- 
TECT. RAM r je place une routine de 'lecture 
AUX" dons la page zero qui elle n'est pas bas- 
culee par AUXREAD, Dans AUX.DRAW j'em- 
ploie systemaliquement la routine MOVAUX 
mise a notre disposition par APPLE, 
Pour un transfer! d'ecrans 80 colonnes sans 
probleme, je vous conseille d'£tudier de pres 
SLOADC dans Tremplin Micro n°l 1 . II est peu 
prudent de s'implanter dans le trou de BASIC- 
SYSTEM (302 octets en BB4C) pour des simples 
routines car : 

1° Ce trou n'est pas garanti. II est d'ailleurs 

mains grand dans BASIC, SYSTEM 1 .0. 
2° NIBBLE et Call APPLE y ont implant* des 
patches corrigeant des "bugs" de BASIC- 
SYSTEM (que vous etes nombreux a appe- 
ler 6 tort PRODOS qui lui, se charge au- 
dessus de$D000). 
Je regrette d'ailleurs qu'APPLE n'ait pas pro- 
file de Introduction d'une nouvelle version de 
PRODOS (PRODOS v2.0 ou P8 vl.2 et mainte- 
nant 1.3} pour corriger egalement BASIC- 
SYSTEM qui n'a ABSOLUMENT pas change 
dans la tourmente, 



mode proportionnel, de retablir cet accent a lo 
place quit merite et qu'il n'auraif jamais du quit- 
ter ? Ma question va peut-etre vous sembler 
naive I Vous seriez bien aimble si vous pouviez me 
repondre ou me faire connattre les references des 
documents que je pourrais consulter sur ce sujet. 

JeanM. (75007 PARIS) 

I g | Rassurez-vous (ou inquietez-vous), vos pro- 
grammes ne sont pas en cause, Le probleme a 
sa source dans rimprimante 1W//. APPLE 
France a ete mis au courant depuis plusieurs 
mois. Je leur ai meme balise la route pour 
I'analyse du bug. Le "recuT est court sur TIW//, 
ce qui permet de se repositionner correcte- 
ment sur un i, Le manuel de reference techni- 
que, qui doit sortir sous peu en fran^ais, 
affirme, dans sa version anglaise, que I'on 
peut envoyer plusieurs "reculs" en sequence, 
ce qui aurait du permettre de se repositionner 
tout aussi correctement sur un u, un e ou un a, 
Helas ! I'imprimante n'est apparemment pas 
conforme au manuel, 

lrrrt£ par Tapparent immobilisme d'APPLE 
France j ai dcrit direetement h J.-L. GASSEE 
en esperant que sa situation de Francois de 
I'etranger le pousserait a faire en sorte que 
les impri mantes de "sa" marque traitent 
correctement SA langue. C'etait le 8 fevrier 
et je n'ai pas regu le moindre soup^on de 
reponse. 

Je pense que seule la multiplication des 
reclamations a des chances de faire bouger 
les choses. Yven kcxnig 



Question : Tout a fait debutant en programmation, 
je suis surtout un utilisateur de traitement de texte 
et de gestionnaire de fichiers, Je trovaille sur APPLE 
Ik et imprimante IMAGEWRITER 2, systeme dont je 
suis parfaitement content sauf en ce qui concerne 
ilmpression en mode proporfionnel, Ce mode est 
pourtant celui qui me seduirait le plus..*, s7/ ne 
prisentait pas un difaut rSdhibitoire : en mode pro- 
portionnel, il est absolument impossible de placer 
I'accent circonflexe (mime chose pour le irima), 
exoctemenf au-dessus de la leftre qu'il est cens6 
"coiffer". II est toujours situe d droits, ce qui fait le 
plus mauvais effete. Que ce soit avec les traiie- 
ments de texte "Epistole" ou "Appleworks" ou 
meme avec les petits editeurs de texte f imagines 
par mot, les r&sultats restent toujours les memes. 
Y'O-t-il une astuce quekonque qui permettrait en 



Indispensobles : 

LES NOUVELLES 
ROUTINES 
POUR 65C02 
(et 6502) 
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METTEZ UN GS 

— dans votre Apple // — 



fat essaye, sans trop y croire, je I'avoue, la carte accelerateur TRANSWARP. D'ou des sur- 
prises d'autant plus agreables ! Ce praduit d Applied Engineering, bien connu aux Etats- 
Unis, est imports par la societe lyonnaise BREJOUX (qui diffuse aussi GS RAM et GS RAM 
PLUS — voir f 'article de la page 39). 

Que nous promet-il ? Tout simplement d'accrottre la vitesse de notre vieil Apple II ou He 
fusqu'a 3,6 MGz I Vous avez bien lu : on passe de 1 a plus de 3 MGz et c'est evidemment 
spectaculaire. II suffif de lister un programme pour en efre immediatement convaincu ! 



QUE SE PASSE-T-IL T 

TRANSWARP met le 6502 ou le 65C02 de votre 
Apple en sommeil et travaille alors avec sa propre 
memoire el son micropracesseur personnel.,, qui 
est aussi un 65C02, mais cadence a 3,6 MGz. 

TRANSWARP accelere non seulement la memoire 
vive mais aussi la memoire auxiliaire (256 K de 
RAM ultra rapide). Mais alors r comment vont se 
comporter certains peripheriques et logiciels, pre- 
vus pour des vitesses beaucoup plus "raisonno- 
bles" ? Apprenez d'abord que cette carte est entie- 
rement transporente avec tous les logiciels (aucune 
disquette de mise en route) et compatible avec tou- 
tes les cartes d'interface ou d'extension Apple. 

Sachez aussi que trois vitesses sont possibles : 1 et 
3,6 MGz par controle au clavier et 1 ,7 MGz par con- 
sole sur la carte. Une extension 16 bils est meme 
disponible sur demande, mais je ne I'ai pas testee. 

UTILISATION 

TRANSWARP peut etre installs dans n'importe quel 
slot disponible. Une notice en fran^ais, succincte, 
mais TRES CLAIRE, indique exactement la marche a 
suivre pour configurer les interrupteurs de la 
carte... selon la nature des peripheriques en ser- 
vice. Ensulte, plus rien a faire ! A la mise en route, 
TRANSWARP est active automatiquement : un bip 



retentit et le logo "TRANSWARP" apparaTt sur 
I'ecran (il suffit de presser la touche ESCAPE pen- 
dant I'affichage du logo pour desactiver complete- 
ment la carte et retrouver le 6502 ou le 65C02 
"escargot" de I'Apple // classique). Mais it est ega- 
lement possible, avec un seul POKE, de faire varier 
la vitesse du processeur a partir d'un programme 
personnel. Les acces d la RAM et a la ROM de 
( Apple sont limites, on le sait, a 1 MGz, mais 
TRANSWARP charge la ROM de I'Apple dans sa pro- 
pre RAM et utilise le reste de cette RAM pour emu- 
ler o la fois la memoire principale et la memoire 
auxiliaire. Par rapport a un Apple ordinaire, c'est 
le jour et la nuit ! On se demande meme pourquoi 
Apple n'a pos offer! cette acceleration a tous ses 
clients. Peut-etre a cause des cartes Z-80 qui, 
meme avec TRANSWARP active, fonctionnent a 
leur vitesse normale ? 

Nous avons tous regrette, lors de l'apparition du 
65C02, que celui-ci soit plus ou mains bride. Cette 
accelerateur — un produit que je vous recom- 
mande — prouve que nous avions raison. Gageons 
qu'une carte idenfique, mais avec un 65C816 
debride, autorisera bientot — sur I'Apple IICS — 
des cadences encore plus surprenantes ! 



DHumtntatlon tt renMlgnamtntt : Sodele Brepux — J.-M. BRESARD 
29, rue de Monlribloud 69009 LYON — T4I. 76.36.52.69. 
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• AMSTRAD PC 1512 
dBASE II PC 

un generateur d'applications 
(Daniel Rouge) 

dBASE II est un logiciel puissant, 
mais difficile a aborder pour un utili- 
sateur non programmeur, 
Cet ouvrage deveJoppe la construc- 
tion d'un generateur d'applications 
permettant de creer et d'utiliser des 
applications simples ou complexes 
de dBASE II. II s'odresse a tous, du 
debutant au programmeur experi- 
ments qui pourra adapter les pro- 
grammes fournis a ses propres 
besoins. Apres une introduction aux 
bases de donnees, sont developpes 
la conception et le mode d'emploi du 
generateur d'applications. La der- 
niere partie contient les program- 
mes, accampagnes de toutes les 
explications (structures, commented- 
res, variables] necessaires a leur 
comprehension. 

Destine aux utilisateurs de dBASE II 
PC sur Amstrad PC 1512 et compati- 
bles, il n'oublie pas les possesseurs 
& Amstrad PCW 8256 t PCW 8512 et 
CPC6I28. 

Livre broch4 de 416 pages (J6$F). 
SY&BX 6-8 impasse du Curd 75018 PARIS 
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dBASE II PC 

Un g$n6ratBuT d applications 



LE BIOS DES PC 




• LE BIOS DES PC 
ET COMPATIBLES 

(M. Cottini) 

Le BIOS de I'IBM PC est un ouvrage 
destine a tout programmeur sur PC, 
qu'il soit professionnel, debutant ou 
simple ,r hobbyiste". Le but recherche 
est une mise a niveau du contenu du 
ROS ( Resident Operating System, 
systeme d'exploitation resident) 
implante d'origine dans la "machine" 
et des fonctions essentielies du BIOS 
(Bfock Input Output System l modules 
d'entrees/sorties du systeme) dans son 
environnement. 

Bon nombre d'ouvrages specialises 
traitent de I'IBM PC, mais Ires rares 
sont ceux destines aux systemes 
d'exploitation en general (BIOS + MS- 
DOSJ ; dans ce cas les elements essen- 
tiels sent tenus genera lement sous 
silence. En redigeant Le BIOS de I'IBM 
PC, I'auteur a voulu rehabiliter I'IBM 
PC tres souvent copie au detriment de 
I'utilisateur. Cost ainsi que les nom- 
breuses recherches et verifications 
entreprises au niveau du PC se sont 
concretises par la naissance d'un 
ouvrage technique de haut niveau. 

Six chapitres sont consacres a I'IBM 
PC : de la mise au point aux notions 
fondamentales necessaires au debu- 
tant, en passant par I'etude des princi- 



paux composants electroniques et de 
la structure d'une disquette souple 5 
pouces 1/4, sans oublier les interrup- 
tions du BIOS (INT Interrupt} et du 
DOS, qu'elles soient externes ou inter- 
nes, de type NMl, INTR ou RESET. Le 
chapitre 5 nous devoile le ROS (BIOS + 
table des parametres + routines auto- 
tests) regroupont tous les modules du 
BIOS. Les mecanismes des differentes 
routines et sous-programmes sont 
decrits clairement, le BIOS tenant une 
place preponderate dans le systeme, 
Des annexes mettent en valeur cer- 
tains petits trues, "must" destine a par- 
faire votre savoir-faire. 

L ivre broche deJU pages { 1 98 FJ, 
SYBEX, 6-8 impasse du Cure 750 1 8 PARIS 



♦ GUIDE PRA TIQUE DEFICHES 
ET DOSSIERS 
(Michel Garrard) 

Bien des gens sont confronted 
aujourd'hui 6 des problemes de dasse- 
ment et de tri de fiches, Un gestion* 
naire de fiches com me Fiches et Dos- 
siers vient soulager I'emploi du temps 
et le plan de travail. La disquette rem* 
place ici le rustique "bac a fiches" et 
les traditionnelles operations de das- 
sement f de selection, d'ajout ou de 
suppression, de modification s'operent 
tres facilement a Taide du clavier et du 
crayon optique (ou de la souris). 

Cet ouvrage se veut un guide pratique 
abondamment illustre. On y trouve de 
nombreux exemples ainsi que des 
modeies pratiques qui pourront etre 
utilises teJs quels ou modifies au gre 
de vos besoms. La seule limite est eel le 
de rimagination, Les exemples ici pre- 
sented concement a la fois le domaine 
familial et le domaine profess ionnel, 
ce qui montre le vaste champ des illus- 
trations possibles de ce logiciel. 

Dans la premiere partie, I'auteur decrit 
la creation, la gestion, Hmpression du 
fichier ainsi que le passage de Fiches 
et Dossiers a Paragraphe. On trouve 
ensuite dans la deuxieme partie de 
nombreux exemples tels que le budget 
familial, les resultats scoloires, le car- 
net d'adresses, la gestion d'un porte- 
feuilled'actions, etc., 

c*dlc//wtkett, 6- 10 boulevard Jourdart 75014 MftfS 
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* Je suis en train d'essayer d'ecrire une petite 
routine en langage machine et, pour economi- 
ser des octets, je fais le plus souvent possible 
appel a des routines du moniteur... et notarn- 
menta$F94C: 



F94C 
F94F 
F950 
F952 



20 ED FD 
CA 

DO F8 
60 



Norrnalemenf, si j'ai : 

390 
302 
304 



A9 AA 
A2 FF 
20 4C F9 



JSR $FDED 
DEX 

BNE $F94A 
RTS 



LDA £$AA 
LDX £$FF 
JSR $F94C 



Je dots obtenir I'affichage de 255 asterts- 
ques. Or, bizarrement, je n'obtiens qu'un 
seul as ten'sque suivi de plus ieurs I ign es 
d'espaces... et j'y perds le peu d'assembleur 
que je connais. 

NESTOR : Je ne suis pas un genie, mais a 
votre place, je regarderais tout de 
meme ce qui se trouve en $F94A, adresse a 
laquelle vous renvoie le BNE de $F950, Vous 
constaterez qu'il s'agit d'un tres bel : 
$F94A A9 AO LDA £$A0 
Or, $A0, jusqua nouvel avis, c'est un espace. 
Au premier tour de lo boucle, vous affichez 
effectivement I'asterisque alors contenu dans 
I'Accumulateur, mois des le second tour, la 
routine affiche X espaces... et c'est bien pour 
cela qu elle est 16, je vous le garantis. 

Pour afficher x fois I'* . contentez-vous de : 



300 


A2 


FF 


LDX 


£$FF (ou Qu're chose) 


302 


A9 


AA 


LDA 


£$AA 


304 


20 


ED FD 


JSR 


$FDED 


307 


CA 




DEX 




308 


D0 


FA 


BNE 


$304 


30A 


60 




RTS 





£a ne vous mangera que 3 octets supplemen- 
taires et ca marchera, c'est prom is ! 



FAUT-IL COMMENCE!? PAR L'ABC 7 



* Vous avez I'air de vous jouer des difficultes 
et je reve de pouvoir, mot aussi f pratiquer le 
langage machine et acc4l4rer ainsi les pro- 
grammes en Basic dont la lenteur me deses- 
pere, Doi$~je absolument commencer par 
I ABC ? J'avoue me contenter, deputs queiques 
mois, de recopier les routines sans fes com- 
prendre* Puis-je achefer vos bouquins en 
con f iance ? 

; Etant donne man grand age, j'ai du 

passer de longues soirees sur les 
programmes des autres avant de reussir a y 
comprendre quelque chose, mais je m'y suis bien 
amuse et c'est I'essentiel. De plus, il m'orrive 
d'etonner mes enfants el petits-enfants, ce qui 
n'est pas fait pour me deplaire 1 Faut-il commen- 
cer par I'ABC ? Personnellement, je n'ai pas su 
me plier a cette discipline, mais on dit que c'est 
la meilleure demarche. 

Le 6502 PAS A PAS (c'est I'ceuvre de deux lec- 
teurs de Tremplin Micro) m'a beaucoup plu 
parce qu'il permet reeilement de s'initier en 
concevant de petites routines performantes. 
Bien sur, on fait mieux plus tard, mais pour un 
debut, c'est extra. 

Quant a nos bouquins de routines, je vous les 
recommande tous pour trois raisons : 

— lis sont accompagnes de leur disquette. 

— lis comportent souvent plusieurs develop- 
pements sur une seule idee. 

— Tout y est explique, 

Comme vous le savez, ils reprennent des routi- 
nes parues dans la revue, mais comprennent 
aussi des inedits. ■ 
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Questions 



• Comment incorporer — &n Basic — un mot 
dans une liste atphabetique ? 

RtPONSE : II faut d'abord verifi er que la 
variable concernee a ete suffi- 
samment dimensionnee. .. et revoir DIM le cas 
echeant. Vous pouvez vous inspirer de la 
petite DEMO que void : 





10 

35 
20 



25 



30 

35 
40 



45 

50 
55 

60 



65 



70 



75 



TEXT :D$ = CHRt (4): PRINT D 
$ M PR£3" ! PRINT : HOME 65C4 
DIM A*<40) DDA0 
HTAB 17: INVERSE : PRINT 11 INC 
ORPDRER UN MOT DANS UNE LISTE 
ALPHABETIGUE 13 : NORMAL : VTA 8 
5 8750 
FOR I = 1 TO 2d;A*(l> = CHR* 
(I + 64) + "-MOT-" + 5TR$ (I 
) : PRINT A$U) , : NEXT 9327 
UTAB 21 : PRINT : INPUT " MOT - 
> *;M$: IF M$ - mu THEN 60 C3D8 
N = I 2E67 
FOR I = N TO 1 STEP - 1 : IF 
A$<I - 1) < = m THEN A$CI> 
= M*; GOTO 50 3FDB 
= A*<I - 1) : NEXT 3F84 
MTAB 5: CALL - 958 B70C 
FOR I = 1 TO N: PRINT A*<I> , : 
NEXT : GOTO 30 71FD 
VTAB 21: PRINT : CALL - 368: 
PRINT "<M)ENU DE DISQUETTE (A 
)PPLES0FT ->ctG "ii GET R$ : 9D21 
IF R$ - "M H OR R$ - B m" THEN 
PRINT D$ 1 RUN MENU" 4E9D 
IF R$ < > "A n AND R* < > "a 
" THEN 60 3FDA 
HOME 2F97 



• Je travaille toute la journee sur un IBM PC... 
er je m'amvse le soir sur un Apple //c\ Je sup- 
pose que ban nombre de vos lecteurs sont dans 
le meme cas. Ne serait-il pas possible de trans- 
former les commandes CAT de ProDOS et 
CATALOG du DO 3.3 en DIR, mais sans modi- 
fier reellement les noms de ces commandes , 



afin quelles restent compatibles avec les 
divers logiciels tournant dejd sur la machine ? 

RfePONSE : Si je comprends bien, vous desi- 
rez seulement creer un pro- 
gramme EXEC vous permettant de lire le cata- 
logue par un simple — DIR (sous ProDOS) ? 
Voici un exemple qui, par-dessus le marche, 
vous renvoie ensuite au menu de la disquette. 



EXDIR 



10 



PRINT D 



TEXT :DS = CHR* (4) 
$"PR£3' 1 : PRINT : HOME 
PRINT DVOPEN DIR" 
D$ "WRITE DIR" 
"PREFIX ) S6 M 
" CAT " 

W CALL-193:P0KE4?168, 
A1T491 52,1 28 :PQKE491 68,0" 
PRINT "RUN MENU" 
PRINT D$ 11 CLOSE" 

Sous DOS 3.3, il faudrait remplacer CAT par 
CATALOG et toper EXEC DIR.., et je ne vols pas 
ou serait I'avantoge ! 



15 
20 
25 
30 
35 

40 
45 



PRINT 
PRINT 
PRINT 
PRINT 



0:W 



65C4 
6A97 
E0FO 
9781 
1FD6 

1EC6 
B148 
DBDC 



ME A CULPA <n° 14) 



Pag© * : CHKCOM, c'est bien $DEBE, mais il fout 
inver&er 1'adresse quand on ['utilise en langage 
machine (BE DE}. A corriger deux fois... 

Page 12 : En $32D, ii faut lire 09 et non $7... qui 
fait boucler la routine VIDEC indefiniment 

Page 53 : A la ligne 455, on a colle un recfif icatif 
qui a masque le 1 qui se trouvait a la suite du + . 

m. et aussl wan koenig 

TREMPUN MICRO N°13 : 

Page 72 : II ouroit follu dire : 

POKE 49235,0 STA $C053 Graphique mixte, 

TREMPUN MICRO N° id : 

Page 41 (Double basse resolution) : J'ai parle 
d'un bug dans le He, mais c'est moi qui suis bug- 
gue ! En $F1 FD, on trouve, dans lie un CPX £$50 
qui permet d'acc^der a tout I'ecran. C'est dans le 
HGS que I'on trouve CPX £$30 et c'est pour cela 
que les concepteurs d'APPLE ont duplique la 
routine. 

Page 72 (colonne de droite) : J'ai 6erlt "En $60AF 
essayez de remplacer,,/' et j'ai donne les mod its 
en partant de $60AD ce qui n'est pas tres fute. 
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Ouoi est ou ? 



QUESTION 



Comment savoir quelle lettre est a un endroit donne de I'ecran texte ? 



Si vous connaissez I'adresse exacte, aucun probleme : L = PEEK (ADR) vous fournira le code 
ASCII du caractere affiche. Si vous ne connaissez que la position (HTAB - VTAB), utilisez plu- 
tot !o petite routine que voici (valable sur 40 colonnes exclusivement), Elle place le code 
ASCII a I'adresse 6 ou vous le lirez done par un L = PEEK (6). 

5YHTAXE : CALL 768, HTAB, VTAB (ou HTAB et VTAB peuvent evidemment etre des 
variables numeriques). Ne pas utiiiser 40,24 (ligne 75) qui provoquerait un 
scrolling et fausserait le resultat. 



10 FOR I = 768 TO 791 : READ R: POKE l,R: NEXT 

20 DATA 32,76,231 ,202,21 8,32,76,231 ,202, 138,32,71 ,248,250, 1 38, 1 01 ,38, 1 33,38, 1 77,38, 
133,6,96 

30 TEXT : NORMAL : PRINT CHR$ (21 ): HOME 

40 PRINT "Q U O I EST O U ?" 

50 PRINT " ": PRINT 

60 PRINT "HTAB3:VTAB1 , IL Y A: ";: CALL 768,3,1 : PRINT CHR$ ( PEEK (6)) 

70 PRINT : PRINT "HTAB5:VTAB4, IL Y A: ";: CALL 768,5,4 : PRINT CHR$ ( PEEK (6)) 

75 FOR I = 1 TO 10: VTAB 8: HTAB 1: INPUT "H, V ";H,V: CALL - 958: HTAB H: VTAB 
V: INVERSE : PRINT "C";: VTAB 9: NORMAL : PRINT : CALL 768,H,V: PRINT PEEK (6): 
NEXT 

80 VTAB 22: PRINT "(M)ENU DISQUETTE ";: GET R$: IF R$ - "M" THEN PRINT CHR$ 
(4)"RUN MENU" 



300 


20 


4C 


E7 


JSR 


SE74C 


303 


CA 






DEX 




304 


DA 






PHX 




305 


20 


4C 


E7 


JSR 


$E74C 


306 


CA 






DEX 




309 


: 8A 






TXA 




30A 


: 20 


47 


F8 


JSR 


SF847 


30D 


FA 






PLX 




30E 


; 8A 






TXA 




30F 


65 


26 




ADC 


$26 


311 


85 


26 




STA 


$26 J 


313 


B1 


26 




LDA 


($26). Y 


315 


85 


06 




STA 


$06 


317 


60 






RTS 





COMBYTE teste la virgule et evalue X. 

X = X - 1 (HTAB = 1 correspond a CH = 0), 

X entasse sur la pile (pas avec le 6502 ! ). 

COMBYTE pour le second parametre 

X = X - 1 (VTAB = 1 correspond a CV = Q). 

X dans A. 

GBASCALC place I'adresse de la ligne en $26-27 
X recupere sur la pile,*, 
et mis dans A, 

CH additionne a partie basse de I'adresse* 

Lecture (Y = a la sortie de GBASCALC). 
Resultat dans 6. 

Retour. ■ 
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QUESTIONS 



* Si je his une serie de t 

\Q INPUT "Premiere valeur " ; A 

2Q INPUT "Deuxieme valeur "; B etc. 

et si je veux revoir ces vaieurs, comment faire pour qv'un 

simple RETURN valide la premiere valeur, si elie est bonne, 

sans avoir a io ressaisir ? Et aussi sans passer par des PEEK 

et POKE ? Roger c 



Si un seuf PEEK ne vous donne pas d'eczema et si 
vous n'etes pas hostile d une saisie un peu plus 
rationnelle, je vous propose les quelques lignes ci- 
apres. Libre a vous, dans la suite du programme, 
de transformer les variables alphonumeriques en 
variables numeriques par une boucle du type ; 

FOR I = 1 TO Tfl : A(l) = VAL (A$(l)): NEXT 



10 TEXT : NORMAL s PRINT CHR* (4) m PR£3'i PRINT CHR$ <17); REM Supprimer la 

derniere instruction pour rester en 80 colonnes 
15 FOR 1 = i TO 10 

20 VTA 8 < I * 2) - 1 : HTAB 1: PRINT "VALEUR "I" -> 11 ; :H = PEEK U403): PRINT 

A$<I);: REM Remplacer 1403 par 36 sur Apple He 
25 POKE 1403,H: CALL - Q6Bi REM CALL -958 effaceraft toutes les lignes plac 

ees sous la lignes en cours 
30 INPUT ""jR* 

35 IF R* ■ 8B THEN POKE 36,H: MTAB U * 2> - 1 1 PRINT A*<I>; GOTO 45 
40 A*<I) = R* 
45 NEXT 

50 MTA8 228 PRINT ■ ( CORRECTION ' <S)UITE ""-> GET R$: PRINT 
55 IF R* = ■C" OR R* = "c" THEN 15 
<SQ IF R* = "S" OR R$ = *s" THEN 70 
65 GOTO 50 

70 EN DANS CET EXEAAPLE, LA LIGNE 70 EST FICTIVE 



* Apres avoir tape le programme HtstoJext publie dans fe 
n°8 de votre revue ainsi que la modification couleur dun !!, 
je me heurfe a un mauvais fonciionnement. Comme vous 
pouvez le constater sur le feuillet joint, I'impression n'est pas 
bonne. Au niveau materiel ('utilise un Apple lie avec kit 
65CQ2, une carte super serie Apple et une imprimante Ima- 
gewritter II. Si vous pouviez m'indiquer quelle erreur j'ai pu 
commeitre l je vous en serais fres reconnaissant. 
Danscetteottente... 

Francois F (lOOOO TRQYES) 



Je viens de terminer fa lecture des Miserables.. en quatre 
■—I volumes, une ceuvre magistrale de Victor Hugo, mais je 
me heurte a un probleme : II y a quelque chose que je n'ai 
pas bien compris. J'utilise pourtant des lunettes "JE- 
VOIS-CLAIR", une lampe dechevet "ECLAIRE-BIEN" et un 
matelas TOUT-A RESSORT' Si vous pouviez m'indiquer a 
quel moment je me suis endormi... sur mes Miserables 
[et aussi le mot de la ligne... de la page... du volume], je 
vous en serais reconnaissant, Dans cette attente... 

Bon voyons I et tout cola fans timbre pour ta roponse I 



* Je viens d'acheier un Apple IfGS. Avec une belle remise* 
Heure'jsement car les resufiats se revelent piutat decevants : 
que faire de cette belle machine sans logiciels et sans docu- 
mentation ? Comment ecrire et lire une information dans un 
fichier direct ? Comment utiiiser I'assembieur, le son, les 
fameux fangages (C notomment) ? Pas de bouquins, si ce 
n est un livre auquei je ne comprends rien d'une coliaboro- 
trke de Trempfin Micro*, rien dans la presse tnformatique 
sur le G$, Le neant. Un ami du Club m 'a donn£ votre adresse 
et une disquette, mais ca ne marche pas, 
De qui se moque-t-on ? p/»rr* n, (33000 bordeaux) 

* FiKTf foH ribtfM i Hied* Iftm tShtf q m, Um nw>Wfr 4&h§ de m QffS PCtit I'APHl HQS 
wild* pewit* au ft!, Ce *W mtomnmtpet ftttnri aai tStbutaittf, ntw ktVfiffHtbm tnrft. 



q Cest vrai que les decus du G5 sont relotivement nam- 
breux, mais Ja documentation existe. Les programmers 
en Applesoft seroient bien inspires en la lisant d'un bout a 
1'autre. Les autres ne resteront pas tres longtemps sur 
leur fafrn- Les logiciels arrivent et les Itvres aussi, mois 
laissons aux auteurs le temps de les ecrire serieusement. 
Pour le reste P Pierre mon ami, vous exagerez. 
Lisez Trempfin Micro et vous constaterez que, a defaut 
d'encenser Apple et le GS. nous commencons a y porler 
de la machine. Je vous signale au passage que le fichier 
direct a ete traite dans notre numero 13. Mats oui ! 
Quant a nos disquettes, il est sur que, sans la revue, elles 
sont a peu pres imrh'lisables. ■ 
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GUY-HACHETTE 



N°1S 



He commande et d'abonnement 

A retourner a : TREMPLIN MICRO — Senilis — 86100 CHATELLERAULT 



N °m Preriom 

Adresse complete 

Code postal ] 1 I ] I 1 VilJe 



LBS DISQUETTES FONCTiONNENT SOUS DOS £T ProDOS (a condition d<* passgdar urn version App/e de SYSTEME P EXPLOITATION) 



QUANTITY 


DESIGNATION 


PRIX UNITAIRf 


TOTAL 




Abonnement cj 6 numeros (un an) : FRANCE 

6 partlr du numdra : 


190 F 






Abonnement 6 6 disquettes (un an) : FRANCE 

it partlr du num*ro : 


600 F 






MINJE 

LE BUREAU DE MINIE 

LES SOURCES DU BUREAU — 


Logiciels 

de Claude AUBRY 


180 F 




ISO F 




SO F 






DISQUETTE UTILITY-DISK (Marcel COTTIN1) 


1 70 F 






UVRE; APPLE // PRODOS, GUIDE DU PROGRAMMEUR APPLESOFT 


120 F 






UVRE : LE 6502 PAS 6 PAS 


1 20 F 






UVRE + DISQUETTE : CLINS D'QEIL AU 6502 


1 60 F 






UVRE + DISQUETTE ; ROUTINES LM POUR 65C02 ET 6502 


ISO F 






LIVRE + DISQUETTE : NOUVELLES ROUTINES POUR LE 65C02 


1 60 F 






RELIURE-ECRIIM 


40 F 






DISQUETTE- INDEX (N°l a 6) 


30 F 






DISQUETTE- INDEX (N°7 a 12) 


M) F 






SIONATURE (CHECK-LIST) 


30 F 






DISQUETTE DE TREMPLIN MICRO : * (lis er tic) 

N°l □ N°4 □ N°7 □ N°10L_1 N°13n 
N°2 □ N°5 □ N°8 □ N°ll □ N°14 □ 
N°3 D N°6 □ N°9 □ N°12 □ N°I5 □ 


105 F 






NUMERO DE TREMPLIN MICRO : * 

m □ m □ n j 3 □ m □ N e 5 □ m □ 

N c 7 □ N°6 □ N c 9 □ N 5 10 □ N c ll □ N 9 12 □ N°13 □ N»H □ N°I5 □ 






30 F 




33 F 





Cochoz la (ou t&s) cassis, 1 do votrv choix. 



Numero d J abonne ou de client ; 



Participation aux frais d'onvoi (gratuit pour les abonnes) + tO F 
Envoi en paquet-poste recommande a partlr de 400 F 

Total a payer 



Merci de libeller votre reglement d I'ordre de TREMPLIN MICRO / Editions JIBEN A 



Mode de reglement choisi 



□ Cheque □ Mandat-Jottre O Carte Bleue 




N° de votre Carre Bleue 
Dote d'explration |_ | | | | 
Montant 6 debitor . F 



1 i 1 i I 

Signature (obllgatolr*) 



TREMPLIN MICRO 
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Votre bibliotheque 
INFORMATIQUE 



♦ APPRENDRE 
A PROGRAMMER (NIVEAU 2} 
(D. Dieudonne, R. Delhaye, 
R. Vigreux) 

Apres le Tome 1, ce nouveau volet pro- 
pose un Qpprofandissement et un elargis- 
sement des methodes d'analyse et de 
programmation* Deux notions essentiel- 
les sont notarnment trainees : les proce- 
dures et les fichiers* On y trouve aussi un 
interessant chapitre sur les methodes de 
tri (attention ! il ne s'agit pas d'Appfe- 
soft), La premiere partie donne la des- 
cription doutils et I'expf ication des 
notions permettant une programmation 
plus raisonnee et plus efficace. La 
seconde partie est un ensemble d exem- 
ples codes en Basic, Logo et LSE afin de 
mettre I'occent sur I'algorithmique. 
Cedic/Nathatt 

6, boulevard Jourdan, 750)4 PARIS 
!92pages-JJ9FTTC 



s avoir & sa voir fare 

INFORMATIQUE 



APPRENDRE 

A PROGRAMMER 

Niveau 2 




• LA ROBOTIQUE 

(Philippe Coiffet) 

Dans la serie des Troites des Nouveffes 
Technologies, les Editions Hermes nous 
proposent un moitre^ouvrage signe par 
un specialiste de la question. Philippe 
Coiffet est directeur de Recherche au 



[?Q Trait* des NojvkttH Technologies 



La 

Robotique 

princlpes 
et 

applications 

Philippe CoiMcl 



CNRS, professeur a I'lnstitut National des 
Sciences et Techniques Nucleates, pro- 
fesseur a I'Universite de Californie, cen- 
tre de Sonto Barbara r etc. Nous sommes 
effectivement en presence dun gros 
traite consacre aux principes et applica- 
tions de fa Robotique. Cet ouvroge est 
surtout destine aux etudionts en Genie 
electrique et Genie mecanique, mais il 
pourra evidemment interesser toute per- 
sonne capable den comprendre les soli* 
des exposes. Notons au passage que lo 
presentation de cette collection est tres 
soignee (couverture cartonnee et pellicu- 
lee). De !a bonne besogne ! 

Editions Hermes 

51 rue Rennequin, 75017 PARIS 
436 pages- 18QFTTC 



• AMSTRADPC 1512 
DOS PLUS 

(J A, Greco etM. Laurent) 

Chacun Centre nous connaTt quelqu'un 
qui connoit quelqu'un qui a rencontre un 
copain utilisant un AMSTRAD PC 1512. 
Votre ami Nestor ne saurait faire excep- 
tion a la regie, mais son opinion — 
recente — passe par un seul interme- 
diaire. Et je suis au regret de vous infor- 



par NESTOR 

mer que cette machine est semble-t-il 
aussi compatible que beaucoup d'autres 
avec celle du Geant IBM. II parait meme, 
si j'en crois mon informateur — il est en 
train de decouper la bete en tranches — r 
qu'Amstrad n'a pas a rougir des perfor- 
mances de sont petit dernier. Amstrad 
aura en tout cas le merite, (du moins d 
mes yeux), d'amener un grand nombre 
d'utilisoteurs a programmer un compati- 
ble. Et ici, je veux dire a Tremplin Micro, 
ca nous cause un tres vif platsir : a un 
moment ou d'aucuns aimeraient transfor- 
mer tous les usagers — convivialite 
oblige — en mouse-men ou mouse- 
women esclaves de fogiaels super- 
intelligents, la naissonce dune nouvelle 
race de programmeurs nous plonge dans 
une joie sans melange. 
Je rnapergois que je n'ai pos beoucoup 
parle au bouquin. C'est apparemment un 
bon petit manue!, surement utile — sinon 
indispensable — a tous les utilisateurs 
qui veulent tirer un bon parti de I'Ams- 
trad sous DOS Plus, systeme qui revendi- 
que une compatibilite maximale tant vts- 
a-vis de MS-DOS (version 2,1) que vis- 
a-vis de CP/M 86. Et oui, DOS Plus se 
revele capable de lire les disquettes scu- 
tes sous MS-DOS, Unverse n'etant pos 
necessairementvraL. 

SYBEX, 6*8 Impasse du Cure, 7588) PARIS CEDEX 18 
232 pages- 128 F TIC. 
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Chciquemois 

le meilleur fiiasr-'' 
de la ^cgg-sa 

technique Effi+mM 
et de la ^ M 
pratique ^flb < 
photo ! 



<=> to 




Chez votre 
marchand de journaux ! 



